;;; compiled by roland@geech.gnu.ai.mit.edu on Sun May 9 20:53:08 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/rmailout.el ;;; emacs version 19.5.10. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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 . FILENAME).") (defalias 'rmail-output-to-rmail-file #[(file-name &optional count) "„ÁÂ Ä !\"‰Æ ˆÇ !È !„QÉ !„QÊË ÌQ!ƒMÍ !ŠqˆÏ ˆÐÒed ÓÁ%ˆ*Ô!ˆ)‚QÕÖ!ˆ×V…ÐÙŽŒÚ ˆÛ!ƒoÓÝÞÐ\"ˆŠÈ !pß!Tà!T!\"#‰$„•å\"! #ˆ‚ù$p=ƒ Õæ!ˆ$qˆÐçÜ!…­()(ƒåÆ ˆÚ ˆêdd\"ˆë#\"!#ˆebˆÚ ˆìí!ˆê`d\"ˆîÓ!ˆï(!ˆ‚øêeð T\"ˆdbˆë#\"!#ˆ*.ÝñÓ\"ˆ*S2ƒó ˆ‚Q×VƒQôÁ!ˆ‚Q‡" [count 1 expand-file-name file-name file-name-directory rmail-last-rmail-file 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)) widen 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 narrow-to-region insert-buffer-substring search-backward "\n" rmail-count-new-messages 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. A prefix argument N says to output N consecutive messages starting with the current one. Deleted messages are skipped and don't count." (list (read-file-name (concat "Output message to Rmail file: (default " (file-name-nondirectory rmail-last-rmail-file) ") ") (file-name-directory rmail-last-rmail-file) (let (answer tail) (setq tail rmail-output-file-alist) (while (and tail (not answer)) (save-excursion (goto-char (point-min)) (if (re-search-forward (car (car tail)) nil t) (setq answer (cdr (car tail)))) (setq tail (cdr tail)))) (or answer rmail-last-rmail-file))) (prefix-numeric-value current-prefix-arg))]) (defalias 'rmail-output #[(file-name &optional count) "„Á …Å !\"‰ÆV…½pÇÈ!É\n  Š qˆÍ ˆÎÏ!ƒNÏ ÆÐ#ˆÑÒ!ƒKÓŠ qˆÔÕ!) \"ˆÍ ˆÖ !ˆ×cˆebˆØÙÚÛÜ!†oÛÝ!†oÛÞ!†oß!àá ×%ˆâãäÉ#ƒˆåæ!ˆçcˆ‚vèed #ˆ)é !ˆ+ê+ì\"ƒ¢íîÉ\"ˆS/ƒ°ð ˆ‚ÆVƒñÁ!ˆ‚‡" [count 1 expand-file-name file-name rmail-last-file file-name-directory 0 get-buffer-create " rmail-output" t case-fold-search tembuf rmailbuf erase-buffer fboundp insert-partial-file-contents 20 looking-at "BABYL OPTIONS:\n" error substitute-command-keys "File %s is an RMAIL file; use the \\[rmail-output-to-rmail-file] command" insert-buffer-substring "\n" insert "From " mail-strip-quoted-names mail-fetch-field "from" "really-from" "sender" "unknown" " " current-time-string search-forward "\nFrom " nil forward-char -5 62 append-to-file kill-buffer equal major-mode rmail-mode rmail-set-attribute "filed" rmail-delete-after-output rmail-delete-forward rmail-next-undeleted-message] 7 "\ Append this message to Unix 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." (list (read-file-name (concat "Output message to Unix mail file" (if rmail-last-file (concat " (default " (file-name-nondirectory rmail-last-file) "): ") ": ")) (and rmail-last-file (file-name-directory rmail-last-file)) rmail-last-file) (prefix-numeric-value current-prefix-arg))])