Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
binhex.elc	8.56 KB	-rw-r--r--
blessmail.el	2.5 KB	-rw-r--r--
emacsbug.elc	15 KB	-rw-r--r--
feedmail.elc	98.21 KB	-rw-r--r--
flow-fill.elc	3.15 KB	-rw-r--r--
footnote.elc	26.54 KB	-rw-r--r--
hashcash.elc	10.83 KB	-rw-r--r--
ietf-drums.elc	8.65 KB	-rw-r--r--
mail-extr.elc	32.53 KB	-rw-r--r--
mail-hist.elc	13.44 KB	-rw-r--r--
mail-parse.elc	2.3 KB	-rw-r--r--
mail-prsvr.elc	1.08 KB	-rw-r--r--
mail-utils.elc	10.13 KB	-rw-r--r--
mailabbrev.elc	14.4 KB	-rw-r--r--
mailalias.elc	14.49 KB	-rw-r--r--
mailclient.elc	4.13 KB	-rw-r--r--
mailheader.elc	5.54 KB	-rw-r--r--
metamail.elc	4.21 KB	-rw-r--r--
mspools.elc	8.74 KB	-rw-r--r--
qp.elc	4.14 KB	-rw-r--r--
reporter.elc	9 KB	-rw-r--r--
rfc2045.elc	826 B	-rw-r--r--
rfc2047.elc	24.87 KB	-rw-r--r--
rfc2231.elc	6.35 KB	-rw-r--r--
rfc2368.elc	2.32 KB	-rw-r--r--
rfc822.elc	5.45 KB	-rw-r--r--
rmail-loaddefs.el	7.79 KB	-rw-r--r--
rmail-spam-filter.elc	12.71 KB	-rw-r--r--
rmail.elc	124.13 KB	-rw-r--r--
rmailedit.elc	9.82 KB	-rw-r--r--
rmailkwd.elc	4.98 KB	-rw-r--r--
rmailmm.elc	41.24 KB	-rw-r--r--
rmailmsc.elc	1.34 KB	-rw-r--r--
rmailout.elc	17.84 KB	-rw-r--r--
rmailsort.elc	6.17 KB	-rw-r--r--
rmailsum.elc	54.29 KB	-rw-r--r--
sendmail.elc	53.92 KB	-rw-r--r--
smtpmail.elc	25.46 KB	-rw-r--r--
supercite.elc	57.29 KB	-rw-r--r--
uce.elc	7.54 KB	-rw-r--r--
undigest.elc	7.81 KB	-rw-r--r--
unrmail.elc	5.25 KB	-rw-r--r--
uudecode.elc	5.26 KB	-rw-r--r--
yenc.elc	3.48 KB	-rw-r--r--

Code Editor : undigest.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\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!\2106\363 \210+\210\202Cr7q\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\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)

${this.title}

Code Editor : undigest.elc