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 : rmailedit.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/rmailedit.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 "`rmailedit.el' was compiled for Emacs 19.29 or later"))

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

(require 'rmail)
#@58 List of functions to call when editing an RMAIL message.
(custom-declare-variable 'rmail-edit-mode-hook 'nil '(#$ . 631) :type 'hook :version "21.1" :group 'rmail-edit)
(byte-code "\303B\304\303!\204$�\305\303\306 \307	\n\"\210\310	\311\312#\210\310	\313\314#\210	)\"\210\303\207" [current-load-list map text-mode-map rmail-edit-map default-boundp set-default make-sparse-keymap set-keymap-parent define-key "" rmail-cease-edit "" rmail-abort-edit] 6)
#@369 Major mode for editing the contents of an Rmail message.
The editing commands are the same as in Text mode, together with
two commands to return to regular Rmail:
  *  \[rmail-abort-edit] cancels any changes and returns to Rmail
  *  \[rmail-cease-edit] makes them permanent.
This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
\{rmail-edit-map}
(defalias 'rmail-edit-mode #[nil "\306 \203
�rq\210\307 \210)\310\311\302!\210\312\313 \210)\314!\210\315\316\317\320!\203/�\321\320!\2024�\321\322!\311\323!\210\312\324\325\326\310\312$\210\327\330!)\207" [rmail-summary-buffer rmail-buffer-swapped delay-mode-hooks rmail-edit-map major-mode mode-name rmail-summary-exists rmail-summary-disable nil make-local-variable t text-mode use-local-map rmail-edit-mode "RMAIL Edit" boundp mode-line-modified default-value mode-line-format auto-save-include-big-deletions add-hook write-region-annotate-functions rmail-write-region-annotate run-mode-hooks rmail-edit-mode-hook] 5 (#$ . 1097)])
(put 'rmail-edit-mode 'mode-class 'special)
#@71 Non-nil means the message being edited originally had pruned headers.
(defvar rmail-old-pruned nil (#$ . 2162))
(put 'rmail-old-pruned 'permanent-local t)
#@59 Holds the headers of this message before editing started.
(defvar rmail-old-headers nil (#$ . 2323))
(put 'rmail-old-headers 'permanent-local t)
#@36 Edit the contents of this message.
(defalias 'rmail-edit-current-message #[nil "\306!\203\n�\307\310!\210\311 \210\312\301!\210\313 \314 \210\312\302!\210\214~\210ed{)\312\303!\210\315\316!\317\211\320 \210\321\322!\323=\203F�\321\324!\325=\203F�\326\327!\207\326\330\331\332!\"\207" [rmail-total-messages rmail-old-pruned rmail-old-text rmail-old-headers buffer-read-only buffer-undo-list zerop error "No messages in this buffer" rmail-modify-format make-local-variable rmail-msg-is-pruned rmail-edit-mode rmail-edit-headers-alist t nil force-mode-line-update key-binding "" rmail-cease-edit "" rmail-abort-edit message "Editing: Type C-c C-c to return to Rmail, C-c C-] to abort" "%s" substitute-command-keys "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort"] 5 (#$ . 2474) nil])
#@54 Finish editing message; switch back to Rmail proper.
(defalias 'rmail-cease-edit #[nil "\306 \203
�rq\210\307 \210)~\210\212eb\210	\204�\310y\210\311\312\313\314#\203.�\315 \210\316c\210\313y\210\202�)\212db\210\317 \210)\n	\313\211\211\211\211\211?@ABCDE\320edC#C\321 \210\313F\322 \210\323 \210\324\325!\203r�\326\325!\210G\314H\327 \210)EGdeZU\203\214�Eed{\230\204\305\313Eeb\210\313\330C!\313\211\211\211IJKLMN\311O\212\331\332!)S\333#\203\304�\310\224J\310\225I\334\335\310!!L\336\337M\340\"\206\333�\341M\342\"\203\331�\343\202\333�M!KL\204\355�\344K\345\261\210\202\341\330L!M\"\204JI|\210Kc\210.eb\210\331\332!\210`\346\314!B\347 \210\350P!\351P!}\210\214\212eb\210\331\332\313\314#)\350P!\f}\210\352\353!A\354 @C\203O\341\330C!\342\"\204OC\202Q\355 ?)A\203^A\227A\fb\210\314Qp\356`\314\"RSrTq\210\357
d?S$\210)Rd|\210*\360\361UB\"!\210A\362\230\203\232\363`d\"\210\202\276A\364\230\203\256@\203\256\365`d\"\210\202\276A\366=\203\276@\203\276\367\370!\210)\371V\314\"\210\212\372 \210\373D\203\323\310\202\324\374!\210.\n\375\376!\207" [rmail-summary-buffer rmail-old-pruned rmail-old-text buffer-file-coding-system limit headers-end rmail-summary-exists rmail-summary-enable 1 re-search-forward "^>*From " nil t beginning-of-line ">" rmail-ensure-blank-line select-safe-coding-system force-mode-line-update kill-all-local-variables rmail-mode-1 boundp tool-bar-map make-local-variable rmail-variables coding-system-base search-forward "\n\n" move coding-system-from-name match-string symbol-name coding-system-get :mime-charset coding-system-equal undecided us-ascii "Content-type: text/plain; charset=" "\n" rmail-edit-headers-alist rmail-swap-buffers-maybe rmail-msgbeg rmail-msgend mail-fetch-field "content-transfer-encoding" rmail-is-text-p rmail-get-coding-system copy-marker encode-coding-region rmail-edit-update-headers rmail-edit-diff-headers "quoted-printable" mail-quote-printable-region "base64" base64-encode-region uuencode error "uuencoded messages are not supported" rmail-set-attribute rmail-show-message rmail-toggle-header 0 run-hooks rmail-mode-hook coding-system is-text-message character-coding new-headers edited-coding pruned old rmail-buffer-swapped rmail-tool-bar-map buffer-undo-list mime-end mime-beg mime-charset old-coding new-coding buffer-read-only rmail-mime-charset-pattern rmail-current-message inhibit-read-only end data-buffer rmail-view-buffer rmail-old-headers rmail-edited-attr-index] 9 (#$ . 3309) nil])
#@59 Abort edit of current message; restore original contents.
(defalias 'rmail-abort-edit #[nil "~\210ed|\210c\210\301 \210\302 \207" [rmail-old-text rmail-cease-edit rmail-highlight-headers] 2 (#$ . 5866) nil])
#@487 Return an alist of the headers of the message in the current buffer.
Each element has the form (HEADER-NAME . ENTIRE-STRING).
ENTIRE-STRING includes the name of the header field (which is HEADER-NAME)
and has a final newline.
If part of the text is not valid as a header field, HEADER-NAME
is an integer and we use consecutive integers.

If WIDEN is non-nil, operate on the entire buffer.

If MARKERS is non-nil, the value looks like
 (HEADER-NAME ENTIRE-STRING BEG-MARKER END-MARKER).
(defalias 'rmail-edit-headers-alist #[(&optional widen markers) "\306\307\212\214\n\203\f�~\210eb\210\310\311!\210e`S}\210eb\210m\204g�`\306\211\312\313!\2032�\314\307!\2027�T\307y\210\312\315!\203F�\307y\210\202:�\316
`\"\203]�\317
!\320 E	B\202c�\fB	B+\202�*	\237*\207" [no-good-header-count header-alist widen header name start nil 1 search-forward "\n\n" looking-at "[ 	]*\$[^:\n 	]\\(\\|[^:\n]*[^:\n 	]\$\\)[ 	]*:" match-string-no-properties "[ 	]" buffer-substring-no-properties copy-marker point-marker markers] 3 (#$ . 6082)])
#@580 Compare OLD-HEADERS and NEW-HEADERS and return field differences.
The value is a list of three lists, (INSERTED DELETED CHANGED).

INSERTED's elements describe inserted header fields
and each looks like (AFTER-WHAT INSERT-WHAT)
INSERT-WHAT is the header field to insert (a member of NEW-HEADERS).
AFTER-WHAT is the field to insert it after (a member of NEW-HEADERS)
or else nil to insert it at the beginning.

DELETED's elements are elements of OLD-HEADERS.
CHANGED's elements have the form (OLD . NEW)
where OLD is a element of OLD-HEADERS and NEW is an element of NEW-HEADERS.
(defalias 'rmail-edit-diff-headers #[(old-headers new-headers) "\306!\307\211\211
\307\n\211\203O�@\n\310\n@\"\211\f\204-�\n\nB\202E�\nA\fA\232\204?�\n\fB	B\311\f\")A\211\204�*\307\f\211\203{�@\211\f\f\235\211
A@)\211\fDB)A\211\204Z�*\237\n\237	\237E,\207" [new-headers changed deleted inserted reverse-new old-headers reverse nil assoc remq old --dolist-tail-- new x prev] 5 (#$ . 7130)])
#@128 Edit the mail headers in the buffer based on HEADER-DIFF.
HEADER-DIFF should be a return value from `rmail-edit-diff-headers'.
(defalias 'rmail-edit-update-headers #[(header-diff) "\306\307\310\"\311	8\307\211\203\\�@\312\n\211@A)\"\313\311
8!\211b\210\314\n\211AA)!\210
A@|\210\315
\"\n\211AA)\316 \317`\n\211AA)GZ!\316 FB*A\211\204�*	A@\307\211\203\203�@\312A\"\211A@\311
8|\210)A\211\204h�*	@\307\211\203\321�@\211\211A@)@\312A\"\211\203\260�\311
8\202\261�eb\210Ac\210A\317`AGZ!\316 EB+A\211\204\216�*\307\211\205\366�@\211A@\307\211\223\210\3118\307\211\223\210A\211\204\333�\307+\207" [buf-headers header-diff chg --dolist-tail-- x match rmail-edit-headers-alist nil t 2 assoc marker-position insert-before-markers delq point-marker copy-marker end del ins new after hdr] 6 (#$ . 8153)])
(provide 'rmailedit)

${this.title}

Code Editor : rmailedit.elc