ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/mail/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/mail/undigest.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&\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) (#$ . 823))
(defalias 'rmail-digest-parse-mime #[nil "eb\210\306\307\310\311#\210`eb\210\205! \312\313\311#\205! \306\314\315!\310\311#)\205g \316 \316 \317\314\320!\307Q\310 \306\n\310\311#\203d \f\320\224\310\223\210 \320\225\310\223\210\321\f!\321 \311\"B\211 \235\203\\ \210\202`
B)\2024 \237,\207" [head-end result separator end start #1=#:x search-forward "\n\n" nil t re-search-forward "^Content-type: multipart/digest;\\s-* boundary=\"?\\([^\";\n]+\\)[\";\n]" match-string 1 make-marker "\n--" 0 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 (#$ . 1817)])
#@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 (#$ . 2113)])
(defalias 'rmail-digest-rfc1153 #[(prolog-sep message-sep trailer-sep) "eb\210\306\307\310#\205\220 \311 \311 \307\211\211 \312\224\307\223\210 \312\225\307\223\210\313\f!\313 \310\"BC\306
\307\310#\205\217 \314\312!\306\307\310#\205\217 @Ab\210\315\n\307\310#\203w \f\312\224\307\223\210 \312\225\307\223\210\313\f!\313 \310\"B\211 \235\203n \210\202s B)\202E eb\210\315\316\317\320\n#\307\310#\203\215 \321\n!\210\202z \237,\207" [prolog-sep result separator end start message-sep re-search-forward nil t make-marker 0 copy-marker match-string search-forward replace-regexp-in-string "\n-" "\n " replace-match trailer-sep #1=#:x] 6])
(defalias 'rmail-digest-parse-rfc934 #[nil "eb\210\305\306\307\310#\205_ \311 \311 \312\313!\307eb\210\314 \307\310#\203J \313\224\307\223\210\n\313\225\307\223\210\315 !\315\n\310\"B\211 \235\203B \210\202F \fB)\202 eb\210\314\316\307\310#\203\\ \317\320!\210\202M \237,\207" [result separator end start #1=#:x re-search-forward "^\n?-[^ ].*\n\n?" nil t make-marker match-string 0 search-forward copy-marker "\n- -" replace-match "\n-"] 5])
#@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\377 3@@23@A121|\2102b\210\320\3213A@@\322#\210\2141`}\210eb\210\333\334 \314\261\210\212\335y\210\336 \210)\323\325!\204\351 \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 \205T9 :\350 \203D\351 ;\212\352\216\353<!\210: 9\354 \210,\202Qr<q\210: 9\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" #[nil "\205 ed|\210 q\210\303\n!\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 #[nil "\301!\207" [window select-window] 2] 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 rmail-total-messages total window rmail-summary-buffer] 8 (#$ . 3489) 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 #[nil "\205\n q\210\303\n!\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 #[nil "\301!\207" [window select-window] 2] 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 (#$ . 5490) nil])
(provide 'undigest)
Kontol Shell Bypass