4.3BSD/usr/contrib/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ß
	#‚º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 narrow-to-region insert-buffer-substring search-backward "" rmail-count-new-messages rmail-show-message rmail-set-attribute "filed" rmail-delete-forward] 26))

(defun rmail-output (file-name) "\
Append this message to Unix mail file named FILE-NAME." (interactive (byte-code "ÁÂÃ!ÄQÅ!#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ˆÎÏÐÑÒ!!ÓÔ Í%ˆÕÖ
#…E×Ø!ˆÙcˆ‚2ˆÚed	#)ˆÛ!+ˆÜÝ
\"ˆ…^Þ ‡" [rmail-last-file file-name rmailbuf tembuf case-fold-search t nil 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" " " current-time-string search-forward "
From " forward-char -5 62 append-to-file kill-buffer rmail-set-attribute "filed" rmail-delete-forward] 15))