;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:55:08 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/undigest.el ;;; emacs version 19.22.92.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/undigest.el' was compiled for Emacs 19")) (require (quote rmail)) (defalias 'undigestify-rmail-message #[nil "~ˆÀÁ\n!Ã\n!{Ã\n!bˆ``}ˆ\fcˆedS}ˆ*ÆÀÈŽŒebˆeÉÊ!ˆ`|ˆËcˆ`d}ˆÌ ÆÏŒÉÐ!ˆe`}ˆdbˆÑÒ!†`ÑÓ!†`ÑÔ!†`ÑÕ!)†gÇÖ!!ŠdbˆØÀxˆÙÀÜVƒž„žÝyˆSÞßàá!âãR!ƒxÆ‚x„§ÇÖ!ˆ+äåæçè\"éQ!ˆêË!ˆŒ`ÉÐ!ˆ`}ˆÑÓ!„Ïebˆë챈)äÐæíè\"éQÀÆ#ƒêî!ˆŒÞï!ƒóëбˆ‚ý`ÉÐÀð#ˆ`}ˆÑÓ!„ ebˆë챈)‚Ð,Àñò!ˆ\n3ô ˆõ3!ˆö ˆ÷ …Oø ƒDù :ŠûŽü=!ˆþ ˆ+‚MŠ=qˆþ ˆ)ÿ ,‡" [nil rmail-msgbeg rmail-current-message rmail-msgend msg-string buffer-read-only t error ((byte-code "ƒedT}ˆed|ˆÁ\n!ˆÁ‡" [error rmail-show-message rmail-current-message] 2)) search-forward "\n*** EOOH ***\n" "\f\n0, unseen,,\n*** EOOH ***\n" "" fill-prefix case-fold-search mail-strip-quoted-names "\n\n" mail-fetch-field "Reply-To" "To" "Apparently-To" "From" "Message is not a digest" digest-name " \n" 10 found count 0 -1 looking-at "End of.*Digest.*\n" regexp-quote "*********" "*" "\\(\n------*\\)*" re-search-forward "^" make-string 55 45 "-*\n*" replace-match "To: " "\n" 27 "\n\n\f\n0, unseen,,\n*** EOOH ***\n" "End " move message "Message successfully undigestified" n rmail-forget-messages rmail-show-message rmail-delete-forward rmail-summary-exists rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer rmail-update-summary rmail-maybe-display-summary] 5 "\ Break up a digest message into its constituent messages. Leaves original message, deleted, before the undigestified messages." nil])