;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315&	\207" [require rmail custom-declare-variable rmail-edit-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "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 "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\207" [text-mode-map make-sparse-keymap set-keymap-parent define-key "" rmail-cease-edit "" rmail-abort-edit] 5))
#@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 #[0 "\306 \203
rq\210\307 \210)\310\311\302!\210\312\313 \210)\314!\210\315\316\317\320!\311\321!\210\312\322\323\324\310\312$\210\325\326!)\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" default-value mode-line-modified auto-save-include-big-deletions add-hook write-region-annotate-functions rmail-write-region-annotate run-mode-hooks rmail-edit-mode-hook] 5 (#$ . 587)])
(put 'rmail-edit-mode 'mode-class 'special)
#@71 Non-nil means the message being edited originally had pruned headers.
(defvar rmail-old-pruned nil (#$ . 1593))
(put 'rmail-old-pruned 'permanent-local t)
#@59 Holds the headers of this message before editing started.
(defvar rmail-old-headers nil (#$ . 1754))
(put 'rmail-old-headers 'permanent-local t)
#@36 Edit the contents of this message.
(defalias 'rmail-edit-current-message #[0 "\306U\203\n\307\310!\210\311 \210\312\301!\210\313 \314 \210\312\315!\210\n\205\243\316=\205\243\317`\320\"\2043\317e\320\"\205\243\317e\320\"\211\205\241\321
!\f>\204J\322\323\320D\"\210\211\324H@\325\232?\205\241\326\327 \210\330+\321!\f>\204k\322\323\320D\"\210\331H\306H\321!\f>\204\200\322\323\320D\"\210\332H\324H#\210)eb\210\321
!\f>\204\232\322\323\320D\"\210\211\333H\306H\306H\262

\312\334!\210\214~\210ed{)\312\335!\210\336\326!\337\211,-\340 \210\341\342!\343=\203\330\341\344!\345=\203\330\346\347!\207\346\350\351\352!\"\207" [rmail-total-messages rmail-old-pruned rmail-enable-mime rmail-mime-feature cl-struct-rmail-mime-entity-tags inhibit-read-only 0 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 type-of signal wrong-type-argument 1 "text/plain" t erase-buffer insert-buffer-substring 5 7 4 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] 9 (#$ . 1905) nil])
#@126 Finish editing message; switch back to Rmail proper.
If ABORT, this is the result of aborting an edit.

(fn &optional ABORT)
(defalias 'rmail-cease-edit #[256 "\306 \203
rq\210\307 \210)~\210eb\210\310\311\312\313#\204\314\315!\210eb\210	\204)\n\204,\316y\210\317=\2046\f\203:\320\202;\321\312\322
\312\313#\203Q\323 \210\324c\210\312y\210\202=)\210@\n	A\312\211\211\211\211\211\325ed	#\262\326 \210\312B\327 \210\330 \210\331\332!\203\201\333\332!\210C\313D\334 \210)	GdeZU\203\233	ed{\230\204u\312\262\neb\210\310\311!\210\335 \262\214e}\210\312E\336!\337\340\341\"\206\311\342\343\"\203\310\344\202\311
!\312\211\211\211\345\346!\2041
\312\347F!\350F!rGq\210\214

}\210eb\210\310\311!\262\ne\n}\210eb\210\322\351\313#\203	
\312y\210\352\224`{\262*\203/
\212\nb\210\353u\210c\210\352\354O\355
H\"\204-
\211BHBH\210)\266eb\210\322I\312\356#\203O
\316\224\262\316\225\262\357\360\316!!\262\202T
\345\346!\262
\211\204\201
\204\201
\204m
\353u\210\361\362\261\210\202\201
\342\336!\"\204\201

b\210|\210c\210)\266)\363\313!\262\364 \210\347F!\350F!}\210eb\210\310\311!\262
\214e
}\210\345\365!\262\366 \262\203\301
\342\336!\343\"\204\301
\202\303
\367 \262)\203\316
\227\262\211b\210\313p\370`\312\"\370`\313\"J\203\364
\371GrGq\210d)#\210\202rGq\210\372d	$\210)\373\374H\f\"!\210\204K\375\230\203!\376\"\210\202K\377\230\2037\2037\201L\"\210\202K\201M=\203K\203K\314\201N!\210\211b\210\201O \210\211d|\210)\266\201PK\313\"\210\306 \203uFrq\210\201Q
!\210)\210\201R \210\201S	\203\206\316\202\207\352!\210\203\226\201T\312	\"\210\266\n\201U\201V!\207" [rmail-summary-buffer rmail-old-mime-state rmail-old-pruned rmail-mbox-format rmail-mime-decoded case-fold-search 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 mboxo "^From " "^>*From " re-search-forward beginning-of-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 mail-fetch-field "Content-Type" rmail-msgbeg rmail-msgend "^content-type:" 0 -1 12 assoc move coding-system-from-name match-string "Content-type: text/plain; charset=" "\n" rmail-edit-headers-alist rmail-swap-buffers-maybe "content-transfer-encoding" rmail-is-text-p rmail-get-coding-system copy-marker insert-buffer-substring encode-coding-region rmail-edit-update-headers rmail-edit-diff-headers "quoted-printable" mail-quote-printable-region "base64" rmail-old-text buffer-file-coding-system rmail-buffer-swapped rmail-tool-bar-map buffer-undo-list buffer-read-only rmail-current-message rmail-view-buffer rmail-old-headers rmail-mime-charset-pattern inhibit-read-only rmail-edited-attr-index base64-encode-region uuencode "uuencoded messages are not supported" rmail-ensure-blank-line rmail-set-attribute rmail-summary-update-line rmail-show-message rmail-toggle-header rmail-mime run-hooks rmail-mode-hook] 24 (#$ . 3364) nil])
#@59 Abort edit of current message; restore original contents.
(defalias 'rmail-abort-edit #[0 "~\210ed|\210c\210\301\302!\210\303 \207" [rmail-old-text rmail-cease-edit t rmail-highlight-headers] 2 (#$ . 6575) nil])
#@517 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).

(fn &optional WIDEN MARKERS)
(defalias 'rmail-edit-headers-alist #[512 "\300\301\212\214\203\n~\210eb\210\302\303!\210e`S}\210eb\210m\204j`\300\211\304\305!\203.\306\301!\262\2025\262T\262\301y\210\304\307!\203D\301y\210\2028\310`\"\262
\203^\211\311!\312 EB\262\266\202

BB\262\266\202*
\237\207" [nil 1 search-forward "\n\n" looking-at "[ 	]*\\([^:\n 	]\\(\\|[^:\n]*[^:\n 	]\\)\\)[ 	]*:" match-string-no-properties "[ 	]" buffer-substring-no-properties copy-marker point-marker] 10 (#$ . 6795)])
#@611 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 an element of OLD-HEADERS and NEW is an element of NEW-HEADERS.

(fn OLD-HEADERS NEW-HEADERS)
(defalias 'rmail-edit-diff-headers #[514 "\300
!\301\211\211\211\203>\211@\302
@\"\211\204 
B\262\210\2027
A
A\232\204/

BB\262\303
	\"\262\210
A\266\202\202\210\211\203\\\211@\211\235A@\211DB\262\210
A\266\202\202@\210\237\237\237E\207" [reverse nil assoc remq] 12 (#$ . 7813)])
#@146 Edit the mail headers in the buffer based on HEADER-DIFF.
HEADER-DIFF should be a return value from `rmail-edit-diff-headers'.

(fn HEADER-DIFF)
(defalias 'rmail-edit-update-headers #[257 "\300\301\302\"\3038\211\203L\211@\304
@A\"\305\3038!\211b\210\306AA!\210
A@
|\210\307\"\262AA\310 \311`AAGZ!\310 FB\262\266
A\266\202\202\210
A@\211\203k\211@\304
A\"\211A@\3038|\266
A\266\202\202P\210
@\211\203\252\211@\211A@
@\304
A\"\211\203\211\303
8\202\212eb\210Ac\210A\311`AGZ!\310 EB\262\266
A\266\202\202n\210\211\211\205\307\211@\211A@\301\211\223\210\303
8\301\211\223\210
A\266\202\202\254\207" [rmail-edit-headers-alist nil t 2 assoc marker-position insert-before-markers delq point-marker copy-marker] 11 (#$ . 8737)])
(provide 'rmailedit)