;ELC ;;; Compiled by buildd@lcy01-24.buildd on Tue Sep 19 22:19:40 2017 ;;; from file /build/emacs24-8smh0b/emacs24-24.3+1/debian/build-x/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 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 (#$ . 1013)]) (put 'rmail-edit-mode 'mode-class 'special) #@71 Non-nil means the message being edited originally had pruned headers. (defvar rmail-old-pruned nil (#$ . 2078)) (put 'rmail-old-pruned 'permanent-local t) #@59 Holds the headers of this message before editing started. (defvar rmail-old-headers nil (#$ . 2239)) (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 (#$ . 2390) nil]) #@54 Finish editing message; switch back to Rmail proper. (defalias 'rmail-cease-edit #[nil "\306 \203 rq\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@ABCDEFGH\324edE#E\325 \210\312I\326 \210\327 \210\330\331!\203\205\332\331!\210J\313K\333 \210)HGdeZU\203\237Hed{\230\204\351\312Heb\210\310\311!\210\334 @eb\210\214`@}\210\312L\335E!M\336\337M\340\"\206\326\341M\342\"\203\324\343\202\326M!N\312\211OP\312\211QR\317S\312\344#\203\316\224P\316\225Q\345\346\316!!O\202\347\350!RR\2045O\204\351u\210\352N\353\261\210\2025\341\335O!M\"\2045Qb\210PQ|\210Nc\210.\354\313!D\355 \210\356T!\357T!}\210eb\210\310\311!\214e }\210\347\360!C\361 BE\203r\341\335E!\342\"\204rE\202t\362 A)C\203\201C\227C b\210\313Up\363`\313\"VWrXq\210\364@dAW$\210)Vd|\210*\365\366YD\"!\210C\367\230\203\276\370`d\"\210\202\342C\371\230\203\322B\203\322\372`d\"\210\202\342C\373=\203\342B\203\342\314\374!\210)\375Z\313\"\210\376 \210\377G\203\366\316\202\371\201[!\210F\203\201\\\312F\"\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 (#$ . 3652) 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 (#$ . 6453) 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!\2027T\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 (#$ . 6669)]) #@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 (#$ . 7717)]) #@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\261eb\210Ac\210A\317`AGZ!\316 EB+ A\211\204\216*\307\211\205\366 @\211A@\307\211\223\210\3118\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 (#$ . 8740)]) (provide 'rmailedit)