| Current Path : /usr/share/emacs/24.3/lisp/mail/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/mail/undigest.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:46 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/undigest.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&\207" [require rmail custom-declare-variable rmail-forward-separator-regex "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" "Regexp to match the string that introduces forwarded messages.\nThis is not a header, but a string contained in the body of the message.\nYou may need to customize it for local needs." :type regexp :group rmail-headers] 8)
#@306 List of digest parsing functions, first tried first.
These functions operate on the current narrowing, and take no argument.
A function returns nil if it cannot parse the digest. If it can, it
returns a list of cons pairs containing the start and end positions of
each undigestified message as markers.
(defconst rmail-digest-methods '(rmail-digest-parse-mime rmail-digest-parse-rfc1153strict rmail-digest-parse-rfc1153sloppy rmail-digest-parse-rfc934) (#$ . 969))
(defalias 'rmail-digest-parse-mime #[nil "eb\210\305\306\307\310#\210`eb\210\205! \311\312\310#\205! \305\313\314!\307\310#)\205Z \315 \315 \316\313\317!\306Q\307 \305\n\307\310#\203W \f\317\224\307\223\210 \317\225\307\223\210\320\301\321\f!\321 \310\"B\"\210\2024 \237,\207" [head-end result separator end start search-forward "\n\n" nil t re-search-forward "^Content-type: multipart/digest;\\s-* boundary=\"?\\([^\";\n]+\\)[\";\n]" match-string 1 make-marker "\n--" 0 add-to-list copy-marker] 6])
#@84 Parse following strictly the method defined in RFC 1153.
See rmail-digest-methods.
(defalias 'rmail-digest-parse-rfc1153strict #[nil "\300\301\302\303#\207" [rmail-digest-rfc1153 "^-\\{70\\}\n\n" "^\n-\\{30\\}\n\n" "^\n-\\{30\\}\n\nEnd of .* Digest.*\n\\*\\{15,\\}\n+'"] 4 (#$ . 1949)])
#@101 Parse using the method defined in RFC 1153, allowing for some sloppiness.
See rmail-digest-methods.
(defalias 'rmail-digest-parse-rfc1153sloppy #[nil "\300\301\302\303#\207" [rmail-digest-rfc1153 "^-\\{55,\\}\n\n" "^\n-\\{27,\\}\n\n" "^\nEnd of"] 4 (#$ . 2243)])
(defalias 'rmail-digest-rfc1153 #[(prolog-sep message-sep trailer-sep) "eb\210\306\307\310#\205\205 \311 \311 \307\211\211 \312\224\307\223\210 \312\225\307\223\210\313\f!\313 \310\"BC\306
\307\310#\205\204 \314\312!\306\307\310#\205\204 \211 @A)b\210\315\n\307\310#\203l \f\312\224\307\223\210 \312\225\307\223\210\316\301\313\f!\313 \310\"B\"\210\202I eb\210\315\317\320\321\n#\307\310#\203\202 \322\n!\210\202o \237,\207" [prolog-sep result separator end start message-sep re-search-forward nil t make-marker 0 copy-marker match-string search-forward add-to-list replace-regexp-in-string "\n-" "\n " replace-match trailer-sep x] 7])
(defalias 'rmail-digest-parse-rfc934 #[nil "eb\210\304\305\306\307#\205R \310 \310 \311\312!\306eb\210\313 \306\307#\203= \312\224\306\223\210\n\312\225\306\223\210\314\300\315 !\315\n\307\"B\"\210\202 eb\210\313\316\306\307#\203O \317\320!\210\202@ \237,\207" [result separator end start re-search-forward "^\n?-[^ ].*\n\n?" nil t make-marker match-string 0 search-forward add-to-list copy-marker "\n- -" replace-match "\n-"] 6])
#@127 Break up a digest message into its constituent messages.
Leaves original message, deleted, before the undigestified messages.
(defalias 'undigestify-rmail-message #[nil "q\210p \306 !\307 ! \310 \203 .q\210~\210\311\312 / \nb\210\313 \n\" 0``}\210\3140\261\210)eb\210\315\216\316\311\312\211\211\211\211 1 2 3 4 5 6 7\317\214\320\321\312\322#\210e`}\210\323\324!\206o \323\325!\206o \323\326!\206o \323\327!)!\2115\204{ \330\331!\2108\2114\203\226 4@ \2113\204\226 4A\2114\204\203 3\204\237 \330\332!\2103\203 3\211 9@@)23\211 9@A)121|\2102b\210\320\3213A\211 9@@)\322#\210\2141`}\210eb\210\333\334 \314\261\210\212\335y\210\336 \210)\323\325!\204\365 \3375\314\261\210)2\312\211\223\2101\312\211\223\2103A\2113\204\244 .\312\340\341!\210
q\210\342 \210db\210\343 \210\344\311!\210\345\f!\210\346 \210\347 \205`: ;\350 \203P\351 <\212\352\216\353=!\210; :\354 \210,\202]r=q\210; :\354 \210*\355 ).\207" [rmail-buffer rmail-current-message msgend msgbeg current buff rmail-msgbeg rmail-msgend rmail-buffers-swapped-p t nil buffer-substring-no-properties "\n" ((byte-code "\203 ed|\210 q\210\303\n!\210\303\207" [error buff current rmail-show-message] 2)) "" mail-strip-quoted-names search-forward "\n\n" move mail-fetch-field "Reply-To" "To" "Apparently-To" "From" error "Message is not a digest--bad header" "Message is not a digest--no messages found" "\nFrom rmail@localhost " current-time-string -1 rmail-add-mbox-headers "To: " message "Message successfully undigestified" rmail-swap-buffers-maybe rmail-set-message-counters set-buffer-modified-p rmail-show-message rmail-delete-forward rmail-summary-exists rmail-summary-displayed selected-window ((select-window window)) rmail-pop-to-buffer rmail-update-summary rmail-maybe-display-summary rmail-view-buffer buffer-read-only msg-copy end start sep-list fun-list digest-name case-fold-search fill-prefix rmail-digest-methods x rmail-total-messages total window rmail-summary-buffer] 8 (#$ . 3598) nil])
#@258 Extract a forwarded message from the containing message.
This puts the forwarded message into a separate rmail message following
the containing message. This command is only useful when messages are
forwarded with `rmail-enable-mime-composing' set to nil.
(defalias 'unforward-rmail-message #[nil "q\210p \306 !\307 !\310 ?\311\216\312 \203 @q\210~\210\fb\210\313\314 \"\210\f`}\210\315\316\317\211\310$\315\320\317\211\310$\315\321!\315\322!\317\211\211\211 A B C D E F G H~\210\f }\210\323I\317\310#\203\206 \324y\210\325\317w\210`\323\326\317\310#\203v \327\224\202w dA\330\331\332\fA{#B\202\365 \323\333\317\310#\203\361 \327\224\211\203\361 \334\324!\211C\203\361 \fb\203\361 \335\336C\337C\340\260!\203\361 \335\336C\337C\341\336C\337\342C\260\n!\203\361 \323\343\317\344#\210\345u\210\346\317x\210\324y\210`A\330C\347\230\203\345 \350\202\346 \351\352\fA{#B\202\365 \302\353!\210~\210 b\210\354\355 \325\261\210`H\203%\356H@\325\261\210\357G@\325\261\210HAHGAG\202\356F\325\261\210\357E\325\261\210B\325\261\210\fb\210\323\360\317\344#\210\f`}\210eb\210m\204\\\335\361!\204V\362c\210\317y\210\202I~\210\fb\210\345y\210\363 \210.\317?q\210\364 \210db\210\365 \210\366\310!\210\367
!\210\370 \205\265J K\371 \203\245\372 L\212\373\216\374M!\210K J\375 \210,\202\262rMq\210K J\375 \210*\376 ).\207" [rmail-buffer rmail-current-message error msgend beg current rmail-msgbeg rmail-msgend t ((byte-code "\203 q\210\303\n!\210\303\207" [error buff current rmail-show-message] 2)) rmail-buffers-swapped-p search-forward "\n\n" mail-fetch-field "Forwarded-From" nil "Forwarded-Date" "From" "Date" re-search-forward 1 "\n" "^----.*[^- \n]" 0 replace-regexp-in-string "^- -" "-" "^\\(> ?\\)[a-zA-Z-]+: .*\n" match-string-no-properties looking-at "\\(" ".+\n\\)*" "Date: ." "From: .+\n" "\\(> ?\\)?\n" "^[^>\n]" move -1 " \n" ">" "^>" "> ?" "" "No forwarded message found" "\n\nFrom rmail@localhost " current-time-string "Forwarded-From: " "Forwarded-Date: " "\n$" "^[a-zA-Z-]+: " " " rmail-add-mbox-headers rmail-swap-buffers-maybe rmail-set-message-counters set-buffer-modified-p rmail-show-message rmail-summary-exists rmail-summary-displayed selected-window ((select-window window)) rmail-pop-to-buffer rmail-update-summary rmail-maybe-display-summary buff rmail-view-buffer end forward-msg prefix buffer-read-only fwd-date fwd-from old-fwd-date old-fwd-from rmail-forward-separator-regex rmail-total-messages total window rmail-summary-buffer] 11 (#$ . 5614) nil])
(provide 'undigest)