;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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" ["^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage"] 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) (#$ . 547))
(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 (#$ . 1510)])
#@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 (#$ . 1804)])
#@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
\202Ceb\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 string-replace "\n-" "\n " replace-match] 12 (#$ . 2071)])
(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
\202eb\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\312
b\210\313\"``}\210\314
\261\266eb\210\315\316$\216\317\311\312\211\211\211\211\320\214\321\322\312\323#\210e`}\210\324\325!\206c\324\326!\206c\324\327!\206c\324\330!)!\262\204o\331\332!\210/\262\203\207@ \211\262\204\207A\262\202s\204\217\331\333!\210\203\342@@\262@A\262


|\210
b\210\321\322A@@\323#\210\214\211`}\210eb\210\334\335 \314\261\210\212\336y\210\337 \210)\324\326!\204\320\340\314\261\210)
\312\211\223\210\211\312\211\223\210A\262\202\217*\266\211\312\240\210\341\342!\210q\210\343 \210db\210\344 \210\345\311!\210\346!\210\347 \210\350 \2058
0\351 \203(
\352 \212\315\353\"\216\3541!\210
0\355 \210+\210\2024
r1q\210\2110\355 \210*\356 \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-closure #[0 "\302\242\205ed|\210\300q\210\303\301!\207" [V0 V1 V2 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 #[0 "\301\300!\207" [V0 select-window] 2] rmail-pop-to-buffer rmail-update-summary rmail-maybe-display-summary rmail-digest-methods rmail-total-messages rmail-summary-buffer] 17 (#$ . 3112) 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$\216\313 \203\nq\210~\210b\210\314\315\"\210`}\210\316\317\320\211\310$\316\321\320\211\310$\316\322!\316\323!\320\211\211\211~\210\n\n}\210\324\f\320\310#\203{\325y\210\326\320w\210`\262\324\327\320\310#\203k\330\224\202ld\262
\331\332\333
{#\262\202\347\324\334\320\310#\203\343\330\224\211\262\f\203\343\335\325!\211\262\203\343\nb\203\343\336\337\340\341\260!\203\343\336\337\340\342\343\n\260!\203\343\324\344\320\345#\210\346u\210\347\320x\210\325y\210`\262
\331\350\230\203\327\351\202\330\352\353
{#\262\202\347\354\355!\210~\210	b\210\356\357 \326\261\210`\262\203
\360@\326\261\210\361@\326\261\210A\262A\262\202\367\360\326\261\210\361\326\261\210
\326\261\210\nb\210\324\362\320\345#\210\n`}\210eb\210m\204P
\336\363!\204J
\364c\210\320y\210\202=
~\210\nb\210\346y\210\365 \210)\266\211\320\240\210q\210\366 \210db\210\367 \210\370\310!\210\371!\210\372 \205\252

\373 \203\231
\374 \212\311\375\"\216\376@!\210
\377 \210+\210\202\244
r@q\210\211\377 \210*\201A \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-closure #[0 "\302\242\205\300q\210\303\301!\207" [V0 V1 V2 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" "^[^>\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 selected-window #[0 "\301\300!\207" [V0 select-window] 2] rmail-pop-to-buffer rmail-update-summary rmail-summary-buffer rmail-maybe-display-summary] 22 (#$ . 5042) nil])
(provide 'undigest)