ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/mail/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/mail/rmailedit.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 870)])
(put 'rmail-edit-mode 'mode-class 'special)
#@71 Non-nil means the message being edited originally had pruned headers.
(defvar rmail-old-pruned nil (#$ . 1934))
(put 'rmail-old-pruned 'permanent-local t)
#@59 Holds the headers of this message before editing started.
(defvar rmail-old-headers nil (#$ . 2095))
(put 'rmail-old-headers 'permanent-local t)
#@36 Edit the contents of this message.
(defalias 'rmail-edit-current-message #[nil "\306U\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 \306H)@\321\232?\205q \322 \323 \210\324(\f\211 \325H)\306H\f\211 \326H)\327H#\210)eb\210\f\211 \330H)\306H\306H)
\312\331!\210\214~\210ed{)\312\332!\210\333\322!\334\211)*\335 \210\336\337!\340=\203\247 \336\341!\342=\203\247 \343\344!\207\343\345\346\347!\"\207" [rmail-total-messages rmail-old-pruned rmail-enable-mime rmail-mime-feature entity 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 "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 (#$ . 2246) 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=\2046 \f\203: \320\202; \321\312 @\322@\312\313#\203T \323 \210\324c\210\312y\210\202? *db\210\325 \210A\n B\312\211\211\211\211\211 C D E F G H I J K L\326edI#I\327 \210\312 M\330 \210\331 \210\332\333!\203\235 \334\333!\210N\313O\335 \210)LGdeZU\203\267 Led{\230\204\312Leb\210\310\311!\210\336 Deb\210\214`D}\210\312 P\337I! Q\340\341Q\342\"\206\356 \343Q\344\"\203\354 \345\202\356 Q! R\312\211 S T\312\211 U V\322W\312\346#\203\316\224T\316\225U\347\350\316!!S\202 \351\352!VV\204MS\2044\353u\210\354R\355\261\210\202M\343\337S!Q\"\204MUb\210TU|\210Rc\210.\356\313!H\357 \210\360X!\361X!}\210eb\210\310\311!C\214eC}\210\351\362!G\363 FI\203\214\343\337I!\344\"\204\214I\202\216\364 E)G\203\233G\227GCb\210\313 Yp\365`\313\" Z [r\\q\210\366DdE[$\210)Zd|\210*\367\370]H\"!\210G\371\230\203\331\372`d\"\210\202\375G\373\230\203\355F\203\355\374`d\"\210\202\375G\375=\203\375F\203\375\314\376!\210)\377^\313\"\210\201_ \210\201` K\203\316\202\201a !\210J\203'\201b \312J\"\210.\n\201c \201d !\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 ">" 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 fromline rmail-old-text buffer-file-coding-system limit 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 rmail-show-message rmail-toggle-header 0 rmail-mime run-hooks rmail-mode-hook] 11 (#$ . 3502) 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 (#$ . 6430) 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 (#$ . 6646)])
#@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 \203w @\211\f\f\235A@\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 prev] 5 (#$ . 7694)])
#@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\203N @\312\n@A\" \313\311\f8!\211 b\210\314\nAA!\210\fA@
|\210\315\f\"\nAA\316 \317`\nAAGZ!\316 FB* A\211\204 * A@\307 \211\203u @\312A\"\211 A@\311\f8|\210) A\211\204Z * @\307 \211\203\300 @\211A@ @ \312A\"\211 \203\237 \311\f8\202\240 eb\210Ac\210A\317`AGZ!\316 EB+ A\211\204\200 *\307 \211\205\345 @\211A@\307\211\223\210\3118\307\211\223\210 A\211\204\312 \307+\207" [buf-headers header-diff chg --dolist-tail-- match end rmail-edit-headers-alist nil t 2 assoc marker-position insert-before-markers delq point-marker copy-marker del ins new after hdr] 6 (#$ . 8708)])
(provide 'rmailedit)
Kontol Shell Bypass