;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (define-keymap :parent text-mode-map "C-c C-c" 'rmail-cease-edit "C-c C-]" 'rmail-abort-edit))#@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 (#$ . 498)]) (put 'rmail-edit-mode 'mode-class 'special)#@71 Non-nil means the message being edited originally had pruned headers. (defvar rmail-old-pruned nil (#$ . 1503)) (put 'rmail-old-pruned 'permanent-local t)#@59 Holds the headers of this message before editing started. (defvar rmail-old-headers nil (#$ . 1663)) (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#)\210eb\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 (#$ . 1813) 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\204s\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\355H\"\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\201b\210|\210c\210*\266\363\313!\262\364 \210\347F!\350F!}\210eb\210\310\311!\262\214e}\210\345\365!\262\366 \262\203\300\342\336!\343\"\204\300\202\302\367 )\262\203\315\227\262\211b\210\313p\370`\312\"\370`\313\"J \203\363\371GrGq\210d)#\210\202rGq\210\372d $)\210\373\374H\f\"!\210 \204J\375\230\203 \376\"\210\202J\377\230\2036\2036\201L\"\210\202J\201M=\203J\203J\314\201N!\210\211b\210\201O \210\211d|)\266\201PK\313\"\210\306 \203sFrq\210\201Q!)\266\201R \210\201S \203\204\316\202\205\352!\210\203\224\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 (#$ . 3271) 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 (#$ . 6473) 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\202BB\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 (#$ . 6692)])#@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\2027AA\232\204/BB\262\303 \"\262\210A\266\202\202\210\211\203\\\211@\211\235A@\211DB\262\210A\266\202\202@\210\237\237\237E\207" [reverse nil assoc remq] 12 (#$ . 7709)])#@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!\210A@|\210\307\"\262AA\310 \311`AAGZ!\310 FB\262\266A\266\202\202\210A@\211\203k\211@\304A\"\211A@\3038|\266A\266\202\202P\210@\211\203\252\211@\211A@@\304A\"\211\203\211\3038\202\212eb\210Ac\210A\311`AGZ!\310 EB\262\266A\266\202\202n\210\211\211\205\307\211@\211A@\301\211\223\210\3038\301\211\223\210A\266\202\202\254\207" [rmail-edit-headers-alist nil t 2 assoc marker-position insert-before-markers delq point-marker copy-marker] 11 (#$ . 8632)]) (provide 'rmailedit)