Gecko [ 122.154.134.11 ]

Name	Size	Permission
binhex.elc	9.01 KB	-rw-r--r--
blessmail.el	2.51 KB	-rw-r--r--
emacsbug.elc	7.55 KB	-rw-r--r--
feedmail.elc	79.59 KB	-rw-r--r--
footnote.elc	21.09 KB	-rw-r--r--
hashcash.elc	10.81 KB	-rw-r--r--
mail-extr.elc	33.9 KB	-rw-r--r--
mail-hist.elc	13.74 KB	-rw-r--r--
mail-utils.elc	9.55 KB	-rw-r--r--
mailabbrev.elc	13.96 KB	-rw-r--r--
mailalias.elc	13.52 KB	-rw-r--r--
mailclient.elc	3.56 KB	-rw-r--r--
mailheader.elc	5.92 KB	-rw-r--r--
mailpost.elc	2.3 KB	-rw-r--r--
metamail.elc	4.44 KB	-rw-r--r--
mspools.elc	7.25 KB	-rw-r--r--
reporter.elc	9.65 KB	-rw-r--r--
rfc2368.elc	2.46 KB	-rw-r--r--
rfc822.elc	5.71 KB	-rw-r--r--
rmail-spam-filter.elc	13.24 KB	-rw-r--r--
rmail.elc	113.93 KB	-rw-r--r--
rmailedit.elc	8.83 KB	-rw-r--r--
rmailkwd.elc	5.12 KB	-rw-r--r--
rmailmm.elc	11.05 KB	-rw-r--r--
rmailmsc.elc	1.56 KB	-rw-r--r--
rmailout.elc	15.73 KB	-rw-r--r--
rmailsort.elc	6.33 KB	-rw-r--r--
rmailsum.elc	52.51 KB	-rw-r--r--
sendmail.elc	51.72 KB	-rw-r--r--
smtpmail.elc	21.58 KB	-rw-r--r--
supercite.elc	58.99 KB	-rw-r--r--
uce.elc	7.66 KB	-rw-r--r--
undigest.elc	7.88 KB	-rw-r--r--
unrmail.elc	4.69 KB	-rw-r--r--
uudecode.elc	6.19 KB	-rw-r--r--

Code Editor : undigest.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:24 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/undigest.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`undigest.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'rmail)
#@184 *Regexp to match the string that introduces forwarded messages.
This is not a header, but a string contained in the body of the message.
You may need to customize it for local needs.
(custom-declare-variable 'rmail-forward-separator-regex '"^----.*\$[Ff]orwarded\\|[Oo]riginal\$.*[Mm]essage" '(#$ . -630) :type 'regexp :group 'rmail-headers)
#@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) (#$ . 981))
(defalias 'rmail-digest-parse-mime #[nil "eb\210\305\306\307\310#\210`eb\210\205!�\311\312\310#\205!�\305\313\314!\307\310#)\205Z�\315 \315 \316\313\317!\306Q\307\305\n\307\310#\203W�\f\317\224\307\223\210\317\225\307\223\210\320\301\321\f!\321\310\"B\"\210\2024�	\237,\207" [head-end result separator end start search-forward "\n\n" nil t re-search-forward "^Content-type: multipart/digest;\\s-* boundary=\"?\$[^\";\n]+\$[\";\n]" match-string 1 make-marker "\n--" 0 add-to-list 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 (#$ . 1961)])
#@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 (#$ . 2255)])
(defalias 'rmail-digest-rfc1153 #[(prolog-sep message-sep trailer-sep) "eb\210\306\307\310#\205\205�\311 \311 \307\211\211\312\224\307\223\210\312\225\307\223\210\313\f!\313\310\"BC\306
\307\310#\205\204�\314\312!\306\307\310#\205\204�	\211@A)b\210\315\n\307\310#\203l�\f\312\224\307\223\210\312\225\307\223\210\316\301\313\f!\313\310\"B\"\210\202I�eb\210\315\317\320\321\n#\307\310#\203\202�\322\n!\210\202o�	\237,\207" [prolog-sep result separator end start message-sep re-search-forward nil t make-marker 0 copy-marker match-string search-forward add-to-list replace-regexp-in-string "\n-" "\n " replace-match trailer-sep x] 7])
(defalias 'rmail-digest-parse-rfc934 #[nil "eb\210\304\305\306\307#\205R�\310 \310 \311\312!\306eb\210\313	\306\307#\203=�\312\224\306\223\210\n\312\225\306\223\210\314\300\315!\315\n\307\"B\"\210\202�eb\210\313\316\306\307#\203O�\317\320!\210\202@�\237,\207" [result separator end start re-search-forward "^\n?-[^ ].*\n\n?" nil t make-marker match-string 0 search-forward add-to-list copy-marker "\n- -" replace-match "\n-"] 6])
#@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\2111234567\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\2033\2119@@)23\2119@A)121|\2102b\210\320\3213A\2119@@)\322#\210\2141`}\210eb\210\333\334 \314\261\210\212\335y\210\336 \210)\323\325!\204\365�\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 \205`:;\350 \203P\351 <\212\352\216\353=!\210;:\354 \210,\202]r=q\210;:\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" ((byte-code "\203�ed|\210	q\210\303\n!\210\303\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 ((select-window window)) 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 x rmail-total-messages total window rmail-summary-buffer] 8 (#$ . 3610) nil])
#@154 Extract a forwarded message from the containing message.
This puts the forwarded message into a separate rmail message
following the containing message.
(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\211ABCDEFGH~\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~\210b\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\265JK\371 \203\245\372 L\212\373\216\374M!\210KJ\375 \210,\202\262rMq\210KJ\375 \210*\376 ).\207" [rmail-buffer rmail-current-message error msgend beg current rmail-msgbeg rmail-msgend t ((byte-code "\203�	q\210\303\n!\210\303\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 ((select-window window)) 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 (#$ . 5620) nil])
(provide 'undigest)

${this.title}

Code Editor : undigest.elc