;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Aug 4 20:46:43 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/rmailout.el ;;; emacs version 19.25.92.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/rmailout.el' was compiled for Emacs 19")) (require (quote rmail)) (defvar rmail-delete-after-output nil "\ *Non-nil means automatically delete a message that is copied to a file.") (defvar rmail-output-file-alist nil "\ *Alist matching regexps to suggested output Rmail files. This is a list of elements of the form (REGEXP . NAME-EXP). The suggestion is taken if REGEXP matches anywhere in the message buffer. NAME-EXP may be a string constant giving the file name to use, or more generally it may be any kind of expression that returns a file name as a string.") (defalias 'rmail-output-menu #[(event) " ! \n!)" [rmail-secondary-file-menu event file-name rmail-output-to-rmail-file rmail-default-rmail-file] 4 "\ Output current message to another Rmail file, chosen with a menu. Also set the default for subsequent \\[rmail-output-to-rmail-file] commands. The variables `rmail-secondary-file-directory' and `rmail-secondary-file-regexp' control which files are offered in the menu." "e"]) (defalias 'rmail-output-to-rmail-file #[(file-name &optional count) " !\" ! ! \" ! !` !` Q!\\ !q ed %*!)`!Vo܎!z\"~ !p!T!T#$%&$# #F&p=!&q!*+*3,-! ~dd}%$##eb~!`d}! +45  8;!54 ,';q54 * )*!Ee T}db%$##*.߁@\"*SA`B `V`C!`" [count 1 expand-file-name file-name file-name-directory rmail-default-rmail-file file-readable-p rmail-file-p rmail-output rmail-maybe-set-message-counters abbreviate-file-name get-file-buffer file-exists-p yes-or-no-p "\"" "\" does not exist, create it? " create-file-buffer file-buffer rmail-insert-rmail-file-header nil require-final-newline write-region t kill-buffer error "Output file does not exist" 0 redelete ((byte-code " \"" [redelete rmail-set-attribute "deleted" t] 3)) rmail-message-deleted-p rmail-current-message rmail-set-attribute "deleted" rmail-msgbeg rmail-msgend end beg cur buf append-to-file "Can't output message to same file it's already in" boundp msg buffer-read-only buffer-auto-save-file-name auto-save-default auto-save-mode insert-buffer-substring search-backward "\n" rmail-count-new-messages rmail-summary-exists rmail-total-messages total rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer rmail-update-summary rmail-maybe-display-summary rmail-show-message buffer-size "filed" rmail-delete-after-output rmail-delete-forward rmail-next-undeleted-message] 7 "\ Append the current message to an Rmail file named FILE-NAME. If the file does not exist, ask if it should be created. If file is being visited, the message is appended to the Emacs buffer visiting that file. If the file exists and is not an Rmail file, the message is appended in inbox format. The default file name comes from `rmail-default-rmail-file', which is updated to the name you use in this command. A prefix argument N says to output N consecutive messages starting with the current one. Deleted messages are skipped and don't count." (byte-code "  )\n)eb @@#\" @A! A)\n/*!Q!#!U!\"b]!\")!)D" [nil tail answer rmail-output-file-alist re-search-forward t eval rmail-default-rmail-file default-file read-file-name "Output message to Rmail file: (default " file-name-nondirectory ") " file-name-directory read-file file-directory-p expand-file-name prefix-numeric-value current-prefix-arg] 4)]) (defalias (quote rmail-file-p) #[(file) "!Î\nq $!+" [generate-new-buffer " *rmail-file-p*" buf ((kill-buffer buf)) insert-file-contents file nil 0 100 looking-at "BABYL OPTIONS:"] 5]) (defalias 'rmail-output #[(file-name &optional count noattribute from-gnus) " \f\f!\" !\" !\" \"p!\f?A!d}ebygU*ЉV?\fx~!b`!`}!*q !ceb߱!!!! ߱#uced ,%),.\"S\fQ2 V!Z56 V;6;q5U45#)!*Q!." [count 1 expand-file-name file-name rmail-default-file file-name-directory file-readable-p rmail-file-p rmail-output-to-rmail-file t get-buffer-create " rmail-output" from-gnus rmail-msgbeg rmail-current-message 48 nil mail-from header-beginning original-headers-p tembuf case-fold-search rmailbuf orig-count 0 search-forward "\n*** EOOH ***\n" mail-fetch-field "Mail-From" erase-buffer insert-buffer-substring "\n" "From " mail-strip-quoted-names "from" "really-from" "sender" "unknown" " " current-time-string "\nFrom " -5 62 write-region noattribute nomsg major-mode rmail-mode rmail-set-attribute "filed" rmail-delete-after-output rmail-delete-forward rmail-next-undeleted-message num-appended next-message-p rmail-toggle-header error format "Only %d message%s appended" "" "s" kill-buffer] 8 "\ Append this message to system-inbox-format mail file named FILE-NAME. A prefix argument N says to output N consecutive messages starting with the current one. Deleted messages are skipped and don't count. When called from lisp code, N may be omitted. If the pruned message header is shown on the current message, then messages will be appended with pruned headers; otherwise, messages will be appended with their original headers. The default file name comes from `rmail-default-file', which is updated to the name you use in this command. The optional third argument NOATTRIBUTE, if non-nil, says not to set the `filed' attribute, and not to display a message. The optional fourth argument FROM-GNUS is set when called from GNUS." (byte-code "  )\n)eb @@#\" @A! A)\n/*!Q!#!U!\"b]!\")!)D" [nil tail answer rmail-output-file-alist re-search-forward t eval rmail-default-file default-file read-file-name "Output message to Unix mail file: (default " file-name-nondirectory ") " file-name-directory read-file file-directory-p expand-file-name prefix-numeric-value current-prefix-arg] 4)])