Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/mail/undigest.elc

;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
\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 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
\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\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\217A\262\202{\204\227\336\340!\210\203\352@@\262@A\262


|\210
b\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 \205G
6\356 \2037
\357 \212\315\316\360\320\321!\361\"\323$\216\3627!\210
6\363 \210+\210\202C
r7q\210\2116\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\205ed|\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\202td\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\277
r@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)