WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/mail
Viewing File: /usr/share/emacs/24.3/lisp/mail/rmailedit.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:58:41 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/rmailedit.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313&	\207" [require rmail custom-declare-variable rmail-edit-mode-hook nil "List of functions to call when editing an RMAIL message." :type hook :version "21.1" :group rmail-edit] 10)
(defvar rmail-edit-map (byte-code "\302 \303	\"\210\304\305\306#\210\304\307\310#\210)\207" [map text-mode-map make-sparse-keymap set-keymap-parent define-key "" rmail-cease-edit "" rmail-abort-edit] 4))
#@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
rq\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 (#$ . 1017)])
(put 'rmail-edit-mode 'mode-class 'special)
#@71 Non-nil means the message being edited originally had pruned headers.
(defvar rmail-old-pruned nil (#$ . 2082))
(put 'rmail-old-pruned 'permanent-local t)
#@59 Holds the headers of this message before editing started.
(defvar rmail-old-headers nil (#$ . 2243))
(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\315!\210\n\205r\316=\205r\317`\320\"\2043\317e\320\"\205r\317e\320\"\211\205q\f\211\321H)@\322\232?\205q\323\324 \210\325)\f\211\326H)\321H\f\211\327H)\330H#\210)eb\210\f\211\331H)\321H\321H)
\312\332!\210\214~\210ed{)\312\333!\210\334\323!\335\211*+\336 \210\337\340!\341=\203\247\337\342!\343=\203\247\344\345!\207\344\346\347\350!\"\207" [rmail-total-messages rmail-old-pruned rmail-enable-mime rmail-mime-feature entity inhibit-read-only zerop error "No messages in this buffer" rmail-modify-format make-local-variable rmail-msg-is-pruned rmail-edit-mode rmail-old-mime-state rmailmm get-text-property rmail-mime-entity 0 "text/plain" t erase-buffer insert-buffer-substring 4 6 1 3 rmail-old-text rmail-old-headers rmail-edit-headers-alist 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" rmail-view-buffer buffer-read-only buffer-undo-list] 6 (#$ . 2394) nil])
#@54 Finish editing message; switch back to Rmail proper.
(defalias 'rmail-cease-edit #[nil "\306 \203
rq\210\307 \210)~\210eb\210\310\311\312\313#\204\314\315!\210eb\210	\204)\n\204,\316y\210\317\320\312\313#\203@\321 \210\322c\210\312y\210\202,db\210\323 \210\n	\f\312\211\211\211\211\211@ABCDEFGH\324edE#E\325 \210\312I\326 \210\327 \210\330\331!\203\205\332\331!\210J\313K\333 \210)HGdeZU\203\237Hed{\230\204\351\312Heb\210\310\311!\210\334 @eb\210\214`@}\210\312L\335E!M\336\337M\340\"\206\326\341M\342\"\203\324\343\202\326M!N\312\211OP\312\211QR\317S\312\344#\203\316\224P\316\225Q\345\346\316!!O\202\347\350!RR\2045O\204\351u\210\352N\353\261\210\2025\341\335O!M\"\2045Qb\210PQ|\210Nc\210.\354\313!D\355 \210\356T!\357T!}\210eb\210\310\311!\214e
}\210\347\360!C\361 BE\203r\341\335E!\342\"\204rE\202t\362 A)C\203\201C\227C
b\210\313Up\363`\313\"VWrXq\210\364@dAW$\210)Vd|\210*\365\366YD\"!\210C\367\230\203\276\370`d\"\210\202\342C\371\230\203\322B\203\322\372`d\"\210\202\342C\373=\203\342B\203\342\314\374!\210)\375Z\313\"\210\376 \210\377G\203\366\316\202\371\201[!\210F\203\201\\\312F\"\210.\n\201]\201^!\207" [rmail-summary-buffer rmail-old-mime-state rmail-old-pruned rmail-old-text buffer-file-coding-system limit rmail-summary-exists rmail-summary-enable search-forward "\n\n" nil t error "There must be a blank line at the end of the headers" 1 re-search-forward "^>*From " 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 point-marker coding-system-base symbol-name coding-system-get :mime-charset coding-system-equal undecided us-ascii move coding-system-from-name match-string mail-fetch-field "Content-Type" -1 "Content-type: text/plain; charset=" "\n" rmail-edit-headers-alist rmail-swap-buffers-maybe rmail-msgbeg rmail-msgend "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 "uuencoded messages are not supported" rmail-set-attribute rmail-show-message rmail-toggle-header headers-end coding-system is-text-message character-coding new-headers edited-coding mime-state pruned old rmail-buffer-swapped rmail-tool-bar-map buffer-undo-list buffer-read-only new-coding mime-charset old-coding mime-beg mime-end content-type rmail-mime-charset-pattern rmail-current-message inhibit-read-only end data-buffer rmail-view-buffer rmail-old-headers rmail-edited-attr-index 0 rmail-mime run-hooks rmail-mode-hook] 11 (#$ . 3656) nil])
#@59 Abort edit of current message; restore original contents.
(defalias 'rmail-abort-edit #[nil "~\210ed|\210c\210\301 \210\302 \207" [rmail-old-text rmail-cease-edit rmail-highlight-headers] 2 (#$ . 6457) 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\fB	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 (#$ . 6673)])
#@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\fDB)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 (#$ . 7721)])
#@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!\211b\210\314\n\211AA)!\210
A@|\210\315
\"\n\211AA)\316 \317`\n\211AA)GZ!\316 FB*A\211\204*	A@\307\211\203\203@\312A\"\211A@\311
8|\210)A\211\204h*	@\307\211\203\321@\211\211A@)@\312A\"\211\203\260\311
8\202\261eb\210Ac\210A\317`AGZ!\316 EB+A\211\204\216*\307\211\205\366@\211A@\307\211\223\210\3118\307\211\223\210A\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 (#$ . 8744)])
(provide 'rmailedit)
F1l3 Manager
