;;; compiled by mycroft@hal on Tue Sep 22 05:21:56 1992
;;; from file /src/emacs-19.0/lisp/undigest.el
;;; emacs version 19.0.426.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(fset 'undigestify-rmail-message (make-byte-code (quote nil) "À ˆÁÂÃ!Å!\"Å!bˆÈ``\"ˆcˆÈedS\"ˆ*ÉÁ\nËŽŒebˆÌeÍÎ!ˆ`\"ˆÏcˆÈ`d\"ˆÐÉÓŒÍÔ!ˆÈe`\"ˆdbˆÕÖ!†k Õ×!†k ÕØ!†k ÕÙ!)†r ÊÚ!!ŠdbˆÜÝ!ˆÞÁ  áVƒª „ª âã!ˆ S äåæç!èéR!ƒƒ É‚ƒ „³ ÊÚ!ˆ+êëìíî\"ïQ!ˆðÏ!ˆŒÈ`ÍÔ!ˆ`\"ˆÕ×!„ß ebˆñcˆcˆòcˆ)êÔìóî\"ïQÁÉ#ƒ(ðô!ˆŒäõ!ƒñcˆcˆÔcˆ‚È`ÍÔÁö#ˆ`\"ˆÕ×!„$ebˆñcˆcˆòcˆ)‚à ,Á\n÷ø!ˆ9ú ˆû9!ˆü ,‡" [widen nil buffer-substring rmail-msgbeg rmail-current-message rmail-msgend msg-string buffer-read-only narrow-to-region t error ((byte-code "ƒ ÁedT\"ˆÂed\"ˆÃ!ˆÁ‡" [error narrow-to-region delete-region rmail-show-message rmail-current-message] 3)) delete-region search-forward "\n*** EOOH ***\n" "\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 skip-chars-backward " 	\n" 10 found count 0 forward-line -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\n0, unseen,,\n*** EOOH ***\n" "End " move message "Message successfully undigestified" n rmail-forget-messages rmail-show-message rmail-delete-forward] 6 "\
Break up a digest message into its constituent messages.
Leaves original message, deleted, before the undigestified messages." nil))