Gecko [ 122.154.134.11 ]

Name	Size	Permission
binhex.elc	9.01 KB	-rw-r--r--
blessmail.el	2.51 KB	-rw-r--r--
emacsbug.elc	7.55 KB	-rw-r--r--
feedmail.elc	79.59 KB	-rw-r--r--
footnote.elc	21.09 KB	-rw-r--r--
hashcash.elc	10.81 KB	-rw-r--r--
mail-extr.elc	33.9 KB	-rw-r--r--
mail-hist.elc	13.74 KB	-rw-r--r--
mail-utils.elc	9.55 KB	-rw-r--r--
mailabbrev.elc	13.96 KB	-rw-r--r--
mailalias.elc	13.52 KB	-rw-r--r--
mailclient.elc	3.56 KB	-rw-r--r--
mailheader.elc	5.92 KB	-rw-r--r--
mailpost.elc	2.3 KB	-rw-r--r--
metamail.elc	4.44 KB	-rw-r--r--
mspools.elc	7.25 KB	-rw-r--r--
reporter.elc	9.65 KB	-rw-r--r--
rfc2368.elc	2.46 KB	-rw-r--r--
rfc822.elc	5.71 KB	-rw-r--r--
rmail-spam-filter.elc	13.24 KB	-rw-r--r--
rmail.elc	113.93 KB	-rw-r--r--
rmailedit.elc	8.83 KB	-rw-r--r--
rmailkwd.elc	5.12 KB	-rw-r--r--
rmailmm.elc	11.05 KB	-rw-r--r--
rmailmsc.elc	1.56 KB	-rw-r--r--
rmailout.elc	15.73 KB	-rw-r--r--
rmailsort.elc	6.33 KB	-rw-r--r--
rmailsum.elc	52.51 KB	-rw-r--r--
sendmail.elc	51.72 KB	-rw-r--r--
smtpmail.elc	21.58 KB	-rw-r--r--
supercite.elc	58.99 KB	-rw-r--r--
uce.elc	7.66 KB	-rw-r--r--
undigest.elc	7.88 KB	-rw-r--r--
unrmail.elc	4.69 KB	-rw-r--r--
uudecode.elc	6.19 KB	-rw-r--r--

Code Editor : rmailout.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:23 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/rmailout.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`rmailout.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\302\303!\207" [require rmail provide rmailout] 2)
#@73 If non-nil, do coding system decoding when outputting message as Babyl.
(custom-declare-variable 'rmail-output-decode-coding 'nil '(#$ . 688) :type 'boolean :group 'rmail-output)
#@343 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.
(custom-declare-variable 'rmail-output-file-alist 'nil '(#$ . 874) :type '(repeat (cons regexp (choice :value "" (string :tag "File Name") sexp))) :group 'rmail-output)
#@144 Regexp describing fields to exclude when outputting a message to a file.
The function `rmail-delete-unwanted-fields' uses this, ignoring case.
(custom-declare-variable 'rmail-fields-not-to-output 'nil '(#$ . 1392) :type '(choice (const :tag "None" nil) regexp) :group 'rmail-output)
#@110 Read the file name to use for `rmail-output'.
Set `rmail-default-file' to this name as well as returning it.
(defalias 'rmail-output-read-file-name #[nil "\306\211\n\203)�	\204)�\212eb\210\307@@\306\310#\203\"�\311@A!A)\202�	\206.�*\312\313\314\315\f!\316Q\317\f!\320\f!#\317\f!\"\321
!\203S�\312\315\f!
\"\202_�\312
\206[�\315\f!\317\f!\"\211*\207" [tail answer rmail-output-file-alist rmail-default-file default-file read-file nil re-search-forward t eval expand-file-name read-file-name "Output message to mail file (default " file-name-nondirectory "): " file-name-directory abbreviate-file-name file-directory-p] 6 (#$ . 1682)])
#@170 Delete all headers matching `rmail-fields-not-to-output'.
Retains headers matching the regexp PRESERVE.  Ignores case.
The buffer should be narrowed to just the header.
(defalias 'rmail-delete-unwanted-fields #[(preserve) "\205%�\212eb\210\303\304\305\303#\205$�\306 \210\307\n!\204\n�`\310\311!|\210\202\n�*\207" [rmail-fields-not-to-output case-fold-search preserve t re-search-forward nil beginning-of-line looking-at line-beginning-position 2] 4 (#$ . 2337)])
#@459 Convert the current buffer's text to Babyl and output to FILE-NAME.
Alters the current buffer's text, so it should be a temporary buffer.
If a buffer is visiting FILE-NAME, adds the text to that buffer
rather than saving the file directly.  If the buffer is an Rmail buffer,
updates it accordingly.  If no buffer is visiting FILE-NAME, appends
the text directly to FILE-NAME, and displays a "Wrote file" message
unless NOMSG is a symbol (neither nil nor t).
(defalias 'rmail-output-as-babyl #[(file-name nomsg) "\306\214eb\210\307\310\311\312#\210e`}\210	\203�\313\311!\210)\314 \210\315\n!p\211\2040�\316ed\n\317
%\202d�\fp=\203:�\320\321!\210\fq\210\317\322\323!\205F�\203W�\324\"\202c�e\325 T}\210db\210\326!*+\207" [coding-system-for-write rmail-fields-not-to-output file-name tembuf buf nomsg emacs-mule-unix search-forward "\n\n" nil move rmail-delete-unwanted-fields rmail-convert-to-babyl-format find-buffer-visiting write-region t error "Can't output message to same file it's already in" boundp rmail-current-message rmail-output-to-babyl-buffer buffer-size insert-buffer-substring msg inhibit-read-only] 7 (#$ . 2811)])
#@157 Copy message in TEMBUF into the current Babyl Rmail buffer.
Do what is necessary to make Rmail know about the new message, then
display message number MSG.
(defalias 'rmail-output-to-babyl-buffer #[(tembuf msg) "\204\f�	\203\f�\306\307!\210\310 \210~\210dd}\210\311\n!\210eb\210~\210\312\313!\210`d}\210\314\307!\210\315 \203Y�\316 \203J�\317 \212\320\216\321!\210\f\322 \210,\202U�rq\210\f\322 \210*\323 \210)\324!\207" [buffer-auto-save-file-name auto-save-default tembuf rmail-total-messages total window auto-save-mode t rmail-maybe-set-message-counters insert-buffer-substring search-backward "\n" rmail-count-new-messages rmail-summary-exists rmail-summary-displayed selected-window ((select-window window)) pop-to-buffer rmail-update-summary rmail-maybe-display-summary rmail-show-message-1 rmail-summary-buffer msg] 2 (#$ . 3965)])
#@65 Convert the mbox message in the current buffer to Babyl format.
(defalias 'rmail-convert-to-babyl-format #[nil "\306e\307\310eb\210\214\311\312!\204�\313\314!\210\315c\210\316 \210\212\317\320\307\310#\205'�`S)\310\212\317\321\f\310#)\212\317\322\f\310#)\205D�\212\317\323\f\310#)+db\210
\203i�\212\324\f`\307\310\211%\204\\�\325\326!\210
b\210`\327\330!|\210\331c\210)+\203\204�\212\307\332\333\217\203\203�+b\210`\327\330!|\210\331c\210),\212\214\n`}\210eb\210\334\335\307\310#\203\235�\336\337!\210\202\216�*n\204\245�\340 \210\341c\210\307,-\203\326�\212\nb\210\334\320\307\310#\210\310\342.\n\310#*\205\314�\343\344\345!\227!/\346\n`/#\210)\212\nb\210\347y\210\350\351,!\352\261.\207" [buffer-undo-list case-fold-search start count header-end quoted-printable-header-field-end 0 nil t looking-at "^From " error "Invalid mbox message" "\f\n0,,\n*** EOOH ***\n" rmail-nuke-pinhead-header re-search-forward "\n\n" "^content-transfer-encoding:\$\n?[	 ]\$*quoted-printable\$\n?[	 ]\$*" "^content-type:\$\n?[	 ]\$\$text\\|message\$/" "^content-transfer-encoding:\$\n?[	 ]\$*base64\$\n?[	 ]\$*" mail-unquote-printable-region message "Malformed MIME quoted-printable message" search-backward ":" ": 8bit" (byte-code "\301T\212\302\303x\210`)\"\210\304\207" [header-end base64-decode-region "\n	 " nil t] 4) ((error)) search-forward "\n" replace-match "\n^_" newline 31 re-search-backward intern match-string 1 rmail-decode-region 3 "X-Coding-System: " symbol-name "\n" base64-header-field-end last-coding-system-used rmail-output-decode-coding rmail-mime-charset-pattern mime-charset] 6 (#$ . 4824)])
#@242 Delete the "From " line in the current mbox message.
The variable `rmail-unix-mail-delimiter' specifies the From line format.
Replaces the From line with a "Mail-from" header.  Adds "Date" and
"From" headers if they are not already present.
(defalias 'rmail-nuke-pinhead-header #[nil "\212\214`\306\307\310\217\210`\306\211\211\n}\210\311b\210\312\313\306\311#b\210\312\314\306\311#\205*�`b\210)\306\315\316
P\306\311#\205q�\317\320\203E�\321\202e�\322\323\224\323\225U\204R�\324\202c�\325\224\325\225U\204b�\325\224\325\225{\202c�\326\327Q	\203m�\321\202n�\330Q\311\".\207" [has-date has-from end start case-fold-search rmail-unix-mail-delimiter nil (search-forward "\n\n") ((error (byte-code "db\210\300c\207" ["\n\n"] 1))) t search-forward "\nFrom:" "\nDate:" re-search-forward "^" replace-match "Mail-from: \\&" "" "Date: \\2, \\4 \\3 \\9 \\5 " 7 "\\7" 10 "EST" "\n" "From: \\1\n"] 6 (#$ . 6463)])
(autoload 'mail-mbox-from "mail-utils")
#@518 Convert the current buffer's text to mbox and output to FILE-NAME.
Alters the current buffer's text, so it should be a temporary buffer.
If a buffer is visiting FILE-NAME, adds the text to that buffer
rather than saving the file directly.  If the buffer is an Rmail buffer,
updates it accordingly.  If no buffer is visiting FILE-NAME, appends
the text directly to FILE-NAME, and displays a "Wrote file" message
unless NOMSG is a symbol (neither nil nor t).
AS-SEEN is non-nil if we are copying the message "as seen".
(defalias 'rmail-output-as-mbox #[(file-name nomsg &optional as-seen) "\306\307\211eb\210\310\311\307\312#\210e`}\210\313\203�\314\202�\315!\210eb\210\316\317!\204,�\320 c\210~\210db\210\321 \210eb\210\322\f!p\211\204Q�\323\324ed\f\306%)\202\225�p=\203\\�\325\326!\210q\210\306\327\330!\205i� ! \203{�\"\203{�\325\331!\210 \203\210�\332
 \"\202\224�e\333 T}\210db\210\334
!*-\207" [date from case-fold-search rmail-enable-mime file-name tembuf t nil search-forward "\n\n" move rmail-delete-unwanted-fields "Mail-From" "Mail-From\\|MIME-Version\\|Content-type" looking-at "From " mail-mbox-from rmail-ensure-blank-line find-buffer-visiting raw-text-unix write-region error "Can't output message to same file it's already in" boundp rmail-current-message "Can't output \"as seen\" to a visited Rmail file" rmail-output-to-rmail-buffer buffer-size insert-buffer-substring buf coding-system-for-write nomsg msg inhibit-read-only as-seen] 7 (#$ . 7425)])
#@151 Copy message in TEMBUF into the current Rmail buffer.
Do what is necessary to make Rmail know about the new message. then
display message number MSG.
(defalias 'rmail-output-to-rmail-buffer #[(tembuf msg) "\212\306 \210\307 \210\204�	\203�\310\311!\210\312 \210~\210db\210\313 \210dd}\210\314\n!\210\315\311!\210\316 \203Y�\317 \203J�\320 \212\321\216\322!\210\f\323 \210,\202U�rq\210\f\323 \210*\324 \210)\325!)\207" [buffer-auto-save-file-name auto-save-default tembuf rmail-total-messages total window rmail-swap-buffers-maybe rmail-modify-format auto-save-mode t rmail-maybe-set-message-counters rmail-ensure-blank-line insert-buffer-substring rmail-count-new-messages rmail-summary-exists rmail-summary-displayed selected-window ((select-window window)) pop-to-buffer rmail-update-summary rmail-maybe-display-summary rmail-show-message-1 rmail-summary-buffer msg] 2 (#$ . 8924)])
#@1159 Append this message to mail file FILE-NAME.
Writes mbox format, unless FILE-NAME exists and is Babyl format, in which
case it writes Babyl.

Interactively, the default file name comes from `rmail-default-file',
which is updated to the name you use in this command.  In all uses, if
FILE-NAME is not absolute, it is expanded with the directory part of
`rmail-default-file'.

If a buffer is visiting FILE-NAME, adds the text to that buffer
rather than saving the file directly.  If the buffer is an Rmail
buffer, updates it accordingly.

This command always outputs the complete message header, even if
the header display is currently pruned.

Optional prefix argument COUNT (default 1) says to output that
many consecutive messages, starting with the current one (ignoring
deleted messages).  If `rmail-delete-after-output' is non-nil, deletes
messages after output.

The optional third argument NOATTRIBUTE, if non-nil, says not to
set the `filed' attribute, and not to display a "Wrote file"
message (if writing a file directly).

Set the optional fourth argument NOT-RMAIL non-nil if you call this
from a non-Rmail buffer.  In this case, COUNT is ignored.
(defalias 'rmail-output #[(file-name &optional count noattribute not-rmail) "\204�\306\307	\n\205�\310\n!\"\311	!\204*�\312	!\204*�\313\314	\315Q!\204*�\316\317!\210\2030�\320\321	!\2059�\322	!p\311	!\211+\203Z�\f\203Z�r\fq\210\214~\210\212eb\210\323\324!++,\203\220�\325\326!-r-q\210\327\216\330
!\210+\203\210�eb\210\323\331!\204\201�\332 c\210\333	\"\202\214�\334	\"+\202:.\203\234�.q\210\202\240�\316\335!\210\336\211/01\337V\2059\3402!0\3412!/\212\342 \203\305�3q\210p\214~\210\325\326!4r4q\210\343\216\330
0/#\210+\203\353�\333	\"\210\202\360�\334	\"\210-\204\373�\3445\345\"\210S6\203\346 \202\337V\205\347\306!1Z78\337V\20358\2045\316\3507\211\306U\2032\351\2023\352#\210*\202\251�++\207" [count file-name rmail-default-file noattribute buf cur 1 expand-file-name file-name-directory find-buffer-visiting file-exists-p yes-or-no-p "\"" "\" does not exist, create it? " error "Output file does not exist" nomsg file-readable-p mail-file-babyl-p looking-at "BABYL OPTIONS:" generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring "From " mail-mbox-from rmail-output-as-babyl rmail-output-as-mbox "There is no Rmail buffer" nil 0 rmail-msgbeg rmail-msgend rmail-buffers-swapped-p ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) rmail-set-attribute t rmail-delete-forward rmail-next-undeleted-message "Only %d message%s appended" "" "s" babyl-format not-rmail #1# rmail-buffer end beg orig-count rmail-current-message rmail-view-buffer #2# rmail-filed-attr-index rmail-delete-after-output num-appended next-message-p] 6 (#$ . 9831) (list (rmail-output-read-file-name) (prefix-numeric-value current-prefix-arg))])
#@443 Append this message to mbox file named FILE-NAME.
The details are as for `rmail-output', except that:
  i) the header is output as currently seen
 ii) this function cannot write to Babyl files
iii) an Rmail buffer cannot be visiting FILE-NAME

Note that if NOT-RMAIL is non-nil, there is no difference between this
function and `rmail-output'.  This argument may be removed in future,
so you should call `rmail-output' directly in that case.
(defalias 'rmail-output-as-seen #[(file-name &optional count noattribute not-rmail) "\203�\306	\n$\207\n\204�\307\310	\f\205�\311\f!\"\312	!\2045�\313	!\2045�\314\315	\316Q!\2045�\317\320!\210\321	!\203E�\322	!\203E�\317\323!\210\203K�\324
\203U�
q\210\202Y�\317\325!\210\np'(\n\326V\205\357�\327\211)*\330 \204|�\331+!*\332+!)\214~\210*\204\212�e*d)\333\334!,r,q\210\335\216\336'*)#\210\337	\340#\210.\204\261�\341-\340\"\210\nS.\203\276�\342 \202\307�\n\326V\205\307�\343\307!(\nZ/0\n\326V\203\353�0\204\353�\317\344/\211\307U\203\350�\345\202\351�\346#\210*\202_�*\207" [not-rmail file-name count noattribute rmail-default-file rmail-buffer rmail-output 1 expand-file-name file-name-directory find-buffer-visiting file-exists-p yes-or-no-p "\"" "\" does not exist, create it? " error "Output file does not exist" file-readable-p mail-file-babyl-p "Cannot output `as seen' to a Babyl file" nomsg "There is no Rmail buffer" 0 nil rmail-buffers-swapped-p rmail-msgbeg rmail-msgend generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring rmail-output-as-mbox t rmail-set-attribute rmail-delete-forward rmail-next-undeleted-message "Only %d message%s appended" "" "s" cur orig-count end beg rmail-current-message #1# rmail-filed-attr-index rmail-delete-after-output num-appended next-message-p] 5 (#$ . 12811) (list (rmail-output-read-file-name) (prefix-numeric-value current-prefix-arg))])
#@508 Write this message body to the file FILE-NAME.
Interactively, the default file name comes from either the message
"Subject" header, or from `rmail-default-body-file'.  Updates the value
of `rmail-default-body-file' accordingly.  In all uses, if FILE-NAME
is not absolute, it is expanded with the directory part of
`rmail-default-body-file'.

Note that this overwrites FILE-NAME (after confirmation), rather
than appending to it.  Deletes the message after writing if
`rmail-delete-after-output' is non-nil.
(defalias 'rmail-output-body-to-file #[(file-name) "\303	\205	�\304	!\"\212eb\210\305\306!\210\307!\203&�\310\311\312\"!\204&�\313\314!\210\315`d#\210)\n\2053�\316 \207" [file-name rmail-default-body-file rmail-delete-after-output expand-file-name file-name-directory search-forward "\n\n" file-exists-p y-or-n-p format "File %s exists; overwrite? " error "Operation aborted" write-region rmail-delete-forward] 4 (#$ . 14777) (let ((default-file (or (mail-fetch-field "Subject") rmail-default-body-file))) (setq default-file (replace-regexp-in-string ":" "-" default-file)) (setq default-file (replace-regexp-in-string " " "-" default-file)) (list (setq rmail-default-body-file (read-file-name "Output message body to file: " (and default-file (file-name-directory default-file)) default-file nil default-file))))])

${this.title}

Code Editor : rmailout.elc