4.3BSD-Reno/contrib/lib/emacs/lisp/rmailout.elc

(defvar rmail-delete-after-output nil "\
*Non-nil means automatically delete a message that is copied to a file.")

(defun rmail-output-to-rmail-file (file-name) "\
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." (interactive (byte-code "ÁÂÃ!ÄQÅ!#C‡" [rmail-last-rmail-file read-file-name "Output message to Rmail file: (default " file-name-nondirectory ") " file-name-directory] 6)) (byte-code "ĈÎ	!‰ˆ	‰ˆÏ ˆÐ	!†EÑ	!†EÒÓ	ÔQ!ƒBÕ	!Š
qˆÖ ˆÄ×ed	ÅØ%))ˆÙ
!)‚EÚÛ!ˆŒÜ ˆŠÐ	!pÝ	!TÞ	!T
?ƒqß
	#‚Äp=…{Úà!ˆqˆÄáÉ!…‰	…™Ü ˆâdd\"ˆã
#ˆ…ÃebˆÜ ˆäå!ˆâ`d\"ˆeTbˆæÅ!ˆç!*,))ˆèéÅ\"ˆ
…Ôê ‡" [rmail-last-rmail-file file-name file-buffer require-final-newline nil t buf cur beg rmail-current-message end buffer-read-only msg rmail-delete-after-output expand-file-name rmail-maybe-set-message-counters get-file-buffer file-exists-p yes-or-no-p "\"" "\" does not exist, create it? " create-file-buffer rmail-insert-rmail-file-header write-region 1 kill-buffer error "Output file does not exist" widen rmail-msgbeg rmail-msgend append-to-file "Can't output message to same file it's already in" boundp narrow-to-region insert-buffer-substring search-backward "" rmail-count-new-messages rmail-show-message rmail-set-attribute "filed" rmail-delete-forward] 28))

(defun rmail-output (file-name) "\
Append this message to Unix mail file named FILE-NAME." (interactive (byte-code "ÁƒÃÄ!ÅQ‚ÆP…Ç!#C‡" [rmail-last-file read-file-name "Output message to Unix mail file" " (default " file-name-nondirectory "): " ": " file-name-directory] 6)) (byte-code "ƈÉ	!‰ˆ	‰ˆpÊË!ÅŠqˆÌ ˆÍ
!ˆÎcˆebˆÏÐÑÒÓ!!†0ÔÕÖ Î%ˆ×ØÆÅ#…HÙÚ!ˆÛcˆ‚6ˆÜed	#)ˆÝ!+ˆÞß\"…iàáÅ\"ˆ…iâ ‡" [rmail-last-file file-name rmailbuf tembuf case-fold-search t nil major-mode rmail-delete-after-output expand-file-name get-buffer-create " rmail-output" erase-buffer insert-buffer-substring "
" insert "From " mail-strip-quoted-names mail-fetch-field "from" "unknown" " " current-time-string search-forward "
From " forward-char -5 62 append-to-file kill-buffer equal rmail-mode rmail-set-attribute "filed" rmail-delete-forward] 16))