;ELC   
;;; compiled by jwz@thalidomide on Fri Dec 31 02:07:12 1993
;;; from file /th/jwz/emacs19/lisp/rmail/rmailout.el
;;; emacs version 19.9 Lucid (beta9).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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")))
    (error "This file was compiled for Emacs 19."))

(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 . 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.")
(fset 'rmail-output-to-rmail-file #[(file-name &optional count) "¬‚ÁÂÄ!\"Æ!«ŠÇ!¬…È\"‡É ˆÊ!Ë!¬²Ì!¬­ÍÎÏQ!«¡Ð!ŠqˆÒ ˆÓÕedÖÁ%ˆ*×!ˆ)ª„ØÙ!ˆÚV…ÓÜŽŒ~ˆÝ!«ˆÖßàÓ\"ˆŠË!pá!Tâ!T#$%‰&¬Šç$##ˆªÛ&p=«„Øè!ˆ&qˆÓéÞ!­‚*+*«ªÉ ˆ~ˆdd}ˆì%$##ˆebˆ~ˆíî!ˆ`d}ˆïÖ!ˆð*!ˆª’eñ T}ˆdbˆì%$##ˆ*.ßòÖ\"ˆ*S3«†ô ˆ‚Y ÚVƒY õÁ!ˆ‚Y ‡" [count 1 expand-file-name file-name file-name-directory rmail-last-rmail-file file-readable-p rmail-file-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 append-to-file "Can't output message to same file it's already in" boundp msg buffer-read-only 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.
If the file exists and is not an Rmail file, 
the message is appended in inbox format.

A prefix argument N says to output N consecutive messages
starting with the current one.  Deleted messages are skipped and don't count." (byte-code "À‰	«œ\n¬™ŠebˆÄ	@@ÀÅ#«†Æ	@A!	A)ªa\n®‚*ÉÊË!ÌQÍ!#‰Î!)D‡" [nil tail answer rmail-output-file-alist re-search-forward t eval rmail-last-rmail-file default-file read-file-name "Output message to Rmail file: (default " file-name-nondirectory ") " file-name-directory prefix-numeric-value current-prefix-arg] 4)])
(fset 'rmail-file-p #[(file) "ÀÁ!ÃŽŠ\nqˆÄÆÇÈ$ˆÉÊ!+‡" [generate-new-buffer " *rmail-file-p*" buf ((kill-buffer buf)) insert-file-contents file nil 0 100 looking-at "BABYL OPTIONS:"] 5])
(fset 'rmail-output #[(file-name &optional count noattribute from-gnus) "¬‚ÁÂ­ƒÅ!\"Æ!«ŠÇ!«…È\"‡pÉÊË!?­“ŠŒÍ!d}ˆebˆÁyˆgÏU*Ð‰ØVƒ&¬œŠŒ~ˆÍ!bˆ`ÙÚ!ˆ`}ˆÛÜ!*ŠqˆÝ ˆÞ!ˆßcˆebˆ«ˆß±ˆªšàáÛâ!®‹Ûã!®†Ûä!®å!æç ß±ˆÙèÐÉ#«ˆéuˆêcˆªqëedÉ,­í%ˆ),¬‹.ïš«…ðñÉ\"ˆS„L 2«„ó ªˆØV­ƒôÁ!Z5‰6«‡«ƒ÷ ˆØV«6¬™øŠqˆùú5‰ÁU«ƒûªü#)!ˆØ*‚L ý!.‡" [count 1 expand-file-name file-name rmail-last-file file-name-directory file-readable-p rmail-file-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 "\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 "\
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.

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 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." (byte-code "ÀÁ\n«ˆÃÄ\n!ÅQªÆP\n­ƒÇ\n!\n#‰È	!D‡" [read-file-name "Output message to Unix mail file" rmail-last-file " (default " file-name-nondirectory "): " ": " file-name-directory prefix-numeric-value current-prefix-arg] 5)])