
(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] 29))

(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))