%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\306DD\307\310\311\312\313&\207" [require rmail custom-declare-variable rmail-forward-separator-regex funcall function #[0 "\300\207" [#1="^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage"] 1 #1#] "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) (#$ . 875))
(defalias 'rmail-digest-parse-mime #[0 "eb\210\300\301\302\303#\210`eb\210\211\205 \304\305\303#\205 \300\306\307!\302\303#\262\205d \310 \310 \311\306\312!\301Q\302\300\302\303#\203` \312\224\302\223\210\312\225\302\223\210\313!\313\303\"B\211\235\203V \202Y \211B\262\262\2020 \211\237\266\204\207" [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] 8])
#@84 Parse following strictly the method defined in RFC 1153.
See rmail-digest-methods.
(defalias 'rmail-digest-parse-rfc1153strict #[0 "\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 (#$ . 1838)])
#@101 Parse using the method defined in RFC 1153, allowing for some sloppiness.
See rmail-digest-methods.
(defalias 'rmail-digest-parse-rfc1153sloppy #[0 "\300\301\302\303#\207" [rmail-digest-rfc1153 "^-\\{55,\\}\n\n" "^\n-\\{27,\\}\n\n" "^\nEnd of"] 4 (#$ . 2132)])
#@43
(fn PROLOG-SEP MESSAGE-SEP TRAILER-SEP)
(defalias 'rmail-digest-rfc1153 #[771 "eb\210\300\301\302#\205\215 \303 \303 \301\211\304\224\301\223\210\304\225\301\223\210\305!\305\302\"BC\262\300\301\302#\205\213 \306\304!\262\300\301\302#\205\213 \211@Ab\210\307\301\302#\203s \304\224\301\223\210\304\225\301\223\210\305!\305\302\"B\211\235\203i \202l \211B\262\262\202C eb\210\307\310\311\312#\301\302#\203\211 \313!\210\202v \211\237\266\204\207" [re-search-forward nil t make-marker 0 copy-marker match-string search-forward replace-regexp-in-string "\n-" "\n " replace-match] 12 (#$ . 2399)])
(defalias 'rmail-digest-parse-rfc934 #[0 "eb\210\300\301\302\303#\205\\ \304 \304 \305\306!\302eb\210\307\302\303#\203F \306\224\302\223\210\306\225\302\223\210\310!\310\303\"B\211\235\203< \202? \211B\262\262\202 eb\210\307\311\302\303#\203X \312\313!\210\202I \211\237\266\204\207" [re-search-forward "^\n?-[^ ].*\n\n?" nil t make-marker match-string 0 search-forward copy-marker "\n- -" replace-match "\n-"] 8])
#@127 Break up a digest message into its constituent messages.
Leaves original message, deleted, before the undigestified messages.
(defalias 'undigestify-rmail-message #[0 "q\210p \306 !\307 !\310 \203 \nq\210~\210\311C\312b\210\313\"``}\210\314\261\266eb\210\315\316\317\320\321 #\322\"\323$\216\324\311\312\211\211\211\211 \325\214\326\327\312\330#\210e`}\210\331\332!\206k \331\333!\206k \331\334!\206k \331\335!)!\262\204w \336\337!\2105\262\203\217 @ \211\262\204\217 A\262\202{ \204\227 \336\340!\210\203\352 @@\262@A\262|\210b\210\326\327A@@\330#\210\214\211`}\210eb\210\341\342 \314\261\210\212\343y\210\344 \210)\331\333!\204\330 \345\314\261\210)\312\211\223\210\211\312\211\223\210A\262\202\227 *\266\211\312\240\210\346\347!\210q\210\350 \210db\210\351 \210\352\311!\210\353!\210\354 \210\355 \205G6\356 \2037\357 \212\315\316\360\320\321!\361\"\323$\216\3627!\210 6\363 \210+\210\202Cr7q\210\211 6\363 \210*\364 \262*\262\207" [rmail-buffer rmail-current-message rmail-view-buffer buffer-read-only case-fold-search fill-prefix rmail-msgbeg rmail-msgend rmail-buffers-swapped-p t nil buffer-substring-no-properties "\n" make-byte-code 0 "\302\242\205 ed|\210\300q\210\303\301!\207" vconcat vector [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 "\301\300!\207" [select-window] rmail-pop-to-buffer rmail-update-summary rmail-maybe-display-summary rmail-digest-methods rmail-total-messages rmail-summary-buffer] 17 (#$ . 3450) 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 #[0 "q\210p \306 !\307 !\310C\311\312\313\314\315 #\316\"\317$\216\320 \203& \nq\210~\210b\210\321\322\"\210`}\210\323\324\325\211\310$\323\326\325\211\310$\323\327!\323\330!\325\211\211\211~\210\n\n}\210\331\f\325\310#\203\203 \332y\210\333\325w\210`\262 \331\334\325\310#\203s \312\224\202t d\262\335\336\337
{#\262\202\357 \331\340\325\310#\203\353 \312\224\211\262\f\203\353 \341\332!\211\262\203\353 \nb\203\353 \342\343\344\345\260!\203\353 \342\343\344\346\347\n\260!\203\353 \331\350\325\351#\210\352u\210\353\325x\210\332y\210`\262\335\354\230\203\337 \355\202\340 \356\357
{#\262\202\357 \360\361!\210~\210 b\210\362\363 \333\261\210`\262 \203!\364@\333\261\210\365@\333\261\210A\262A\262\202\377 \364\333\261\210\365\333\261\210\333\261\210\nb\210\331\366\325\351#\210\n`}\210eb\210m\204X\342\367!\204R\370c\210\325y\210\202E~\210\nb\210\352y\210\371 \210)\266\211\325\240\210q\210\372 \210db\210\373 \210\374\310!\210\375!\210\376 \205\305
\377 \203\262\201A \212\311\312\201B \314\315!\201C \"\317$\216\201D @!\210 \201E \210+\210\202\277r@q\210\211 \201E \210*\201F \262)\207" [rmail-buffer rmail-current-message rmail-view-buffer buffer-read-only rmail-forward-separator-regex rmail-total-messages rmail-msgbeg rmail-msgend t make-byte-code 0 "\302\242\205 \300q\210\303\301!\207" vconcat vector [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]" replace-regexp-in-string "^- -" "-" "^\\(> ?\\)[a-zA-Z-]+: .*\n" match-string-no-properties looking-at "\\(" ".+\n\\)*" "Date: ." "From: .+\n\\(" ".+\n\\)*\\(> ?\\)?\n" "^[^>\n]" move -1 " \n" ">" "^>" "> ?" "" error "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 rmail-summary-buffer selected-window "\301\300!\207" [select-window] rmail-pop-to-buffer rmail-update-summary rmail-maybe-display-summary] 22 (#$ . 5426) nil])
(provide 'undigest)
Zerion Mini Shell 1.0