;ELC ;;; compiled by erik@naggum.no on Sun Jan 14 06:33:32 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/rmailout.el ;;; emacs version 19.30.70.6. ;;; 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.29"))) (error "`rmailout.el' was compiled for Emacs 19.29 or later")) (require (quote rmail)) #@73 *Non-nil means automatically delete a message that is copied to a file. (defvar rmail-delete-after-output nil (#$ . -490)) #@344 *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. (defvar rmail-output-file-alist nil (#$ . -620)) #@549 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. (defalias 'rmail-output-to-rmail-file #[(file-name &optional count) " !\" ! ! \" ! !` !` Q!\\ !q ed %*!)`!V܎!z\"~ !p!T!T#$%&'p(!q($## ed #(q!!)$# #&p=!&q!121m34! ~dd}%$##eb~!`d} ! c:; N >@A!;:B ,]Aq;:B *C )D1!eE T}db%$## *.߁F\"*SGH `V`I!`" [count 1 expand-file-name file-name file-name-directory rmail-default-rmail-file file-readable-p mail-file-babyl-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 rmail-fields-not-to-output obuf get-buffer-create " rmail-out-temp" insert-buffer-substring rmail-delete-unwanted-fields append-to-file get-buffer "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 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 (#$ . 1019) (let ((default-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 (eval (cdr (car tail))))) (setq tail (cdr tail)))) (or answer rmail-default-rmail-file)))) (list (setq rmail-default-rmail-file (let ((read-file (read-file-name (concat "Output message to Rmail file: (default " (file-name-nondirectory default-file) ") ") (file-name-directory default-file) default-file))) (if (file-directory-p read-file) (expand-file-name (file-name-nondirectory default-file) read-file) (expand-file-name (or read-file default-file) (file-name-directory default-file))))) (prefix-numeric-value current-prefix-arg)))]) #@75 *Regexp describing fields to exclude when outputting a message to a file. (defvar rmail-fields-not-to-output nil (#$ . -4106)) (defalias 'rmail-delete-unwanted-fields #[(&optional not-rmail) ";eb #:#: eb#9y`y`|#))" [rmail-fields-not-to-output not-rmail search-forward "\n*** EOOH ***\n" nil t "\n\n" point-marker end re-search-forward 0 1] 4]) #@737 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. (defalias 'rmail-output #[(file-name &optional count noattribute from-gnus) " \f\f!\" !\" !\" \"p!\f?A!d}ebygU*ЉVG\fx~!b`!`}!*q !!ceb!!!! #uc)ed -%)-/\"S\fQ3 V !Z67 VC7Cq6U<=#)!*Q!." [count 1 expand-file-name file-name rmail-default-file file-name-directory file-readable-p mail-file-babyl-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 rmail-delete-unwanted-fields "\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 (#$ . 4496) (let ((default-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 (eval (cdr (car tail))))) (setq tail (cdr tail)))) (or answer rmail-default-file)))) (list (setq rmail-default-file (let ((read-file (read-file-name (concat "Output message to Unix mail file: (default " (file-name-nondirectory default-file) ") ") (file-name-directory default-file) default-file))) (if (file-directory-p read-file) (expand-file-name (file-name-nondirectory default-file) read-file) (expand-file-name (or read-file default-file) (file-name-directory default-file))))) (prefix-numeric-value current-prefix-arg)))])