;ELC   
;;; compiled by rms@psilocin.gnu.ai.mit.edu on Tue Jun 25 23:52:25 1996
;;; from file /home/fsf/rms/e19/lisp/undigest.el
;;; emacs version 19.31.3.
;;; 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.29")))
    (error "`undigest.el' was compiled for Emacs 19.29 or later"))


(require (quote rmail))
#@127 Break up a digest message into its constituent messages.
Leaves original message, deleted, before the undigestified messages.
(defalias 'undigestify-rmail-message #[nil "~€АБ\n!Г\n!{Г\n!b€``}€\fc€edS}€*ЖАИЋЊeb€eЙК!€`|€Лc€`d}€МЖАРЊЙС!€`e`}€db€ТУ!†f ТФ!†f ТХ!†f ТЦ!)†m ЗЧ!!Љdb€ЩАx€А`Vѓњ „њ Ыy€ЬЭЮЯ!абR!ѓ{ Ж‚{ „Ґ Зв!€*гдежз\"иQ!€йЛ!€Њ`ЙС!€`}€ТФ!„Н eb€кл±€)гСемз\"иQАЖ#ѓ4йн!€ЊЬо!ѓс кС±€‚ы `ЙСАп#€`}€ТФ!„eb€кл±€)Љeb€грАЖ#ѓ0с 2eb€гу2Ж#ѓ/фх!€‚))‚О -Ацч!€\n8щ €ъ8!€ы €ь …‹=>я ѓwЃ@  AЉЃB ЋЃC D!€>=ЃE  €,‚†ЉDq€>=ЃE  €*ЃF  ),‡" [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 start mail-strip-quoted-names "\n\n" mail-fetch-field "Reply-To" "To" "Apparently-To" "From" "Message is not a digest--bad header" digest-name " 	\n" found -1 looking-at "End of.*Digest.*\n" regexp-quote "*********" "*" "\\(\n------*\\)*" "Message is not a digest--no end line" re-search-forward "^" make-string 55 45 "-*\n*" replace-match "To: " "\n" 27 "\n\n\f\n0, unseen,,\n*** EOOH ***\n" "End " move "\n\n----------------------------*\n*" point-marker end "^- " delete-char -2 message "Message successfully undigestified" n rmail-forget-messages rmail-show-message rmail-delete-forward rmail-summary-exists rmail-total-messages total rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer rmail-update-summary rmail-maybe-display-summary] 5 (#$ . 500) 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 "pБЋВГ!ѓ q€Д!Ж!}€eb€З‰‰‰‰	\n\fНО!ПРЗС#„8 ТУ!€Фy€`\fПРЗС#ѓM Х”‚Q ТЦ!€~€\f{	Ж!b€``}€Чc€``}€ШЩ±€	c€eb€m„Ћ ЪЫ!ѓ€ ``Ь\\|€Фy€‚x Ю €Я!€а …О !\"г ѓѕ д %ЉжЋз(!€\"!й €,‚Л Љ(q€\"!й €*к ).‡" [obuf ((set-buffer obuf)) local-variable-p rmail-buffer rmail-msgbeg rmail-current-message rmail-msgend nil who-forwarded-it msg-string buffer-read-only end beg mail-fetch-field "From" re-search-forward "^----" t error "No forwarded message" 1 0 "No terminator for forwarded message" "\f\n0, unseen,,\n*** EOOH ***\n" "Forwarded-by: " "\n" looking-at "- " 2 n rmail-forget-messages rmail-show-message rmail-summary-exists rmail-total-messages total rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer rmail-update-summary rmail-maybe-display-summary] 5 (#$ . 2177) nil])