;ELC   
;;; compiled by cthomp@willow on Thu Aug 12 00:46:21 1993
;;; from file /era/era-0.80/editor/lisp/rmail/undigest.el
;;; emacs version 19.8 (beta8) Lucid.
;;; bytecomp version 2.15; 14-jul-93.
;;; 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 "This file was compiled for Emacs 19."))

(fset 'undigestify-rmail-message #[nil "~ˆÀÁ\n!Ã\n!{Ã\n!bˆ``}ˆcˆedS}ˆ*ÆÀÈŽŒebˆeÉÊ!ˆ`|ˆËcˆ`d}ˆÌÆÏŒÉÐ!ˆe`}ˆdbˆÑÒ!®ÑÓ!®ˆÑÔ!®ƒÑÕ!)®ƒÇÖ!!ŠdbˆØÀxˆÙÀÜV«œ¬˜ÝyˆSÞßàá!âãR!«cÆª^¬„ÇÖ!ˆ+äåæçè\"éQ!ˆêË!ˆŒ`ÉÐ!ˆ`}ˆÑÓ!¬Šebˆëì±ˆ)äÐæíè\"éQÀÆ#«¯êî!ˆŒÞï!«‰ëÐ±ˆªŠ`ÉÐÀð#ˆ`}ˆÑÓ!¬Šebˆëì±ˆ)ªD,Àñò!ˆ\n3ô ˆõ3!ˆö ,‡" [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" "\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\n0, unseen,,\n*** EOOH ***\n" "End " move message "Message successfully undigestified" n rmail-forget-messages rmail-show-message rmail-delete-forward] 5 "\
Break up a digest message into its constituent messages.
Leaves original message, deleted, before the undigestified messages." nil])