
(defun undigestify-rmail-message nil "\
Break up a digest message into its constituent messages.
Leaves original message, deleted, before the undigestified messages." (interactive) (byte-code "Б€М €БНО!П!\"П!b€Р``\"€
c€РedS\"*€ЕБСЋЊeb€ТeУФ!€`\"€Хc€Р`d\"€ЦЕЧЊУШ!€Рe`\"€db€ЩЪ!†b ЩЫ!†b ЩЬ!)†i ДЭ!!Љdb€ЮЯ!€аБ
		бV…„ 
?…¦ вг!€	S‰	€дежз!ийR!…ў Е‰
€‚z €
?…° ДЭ!*)€клмно\"пQ!€рХ!€ЊР`УШ!€`\"€ЩЫ!ѓХ Б‚Ю eb€сту#)€кШмфо\"пQБЕ#…%рх!€Њдц!ѓстШ#‚Р`УШБч#€`\"€ЩЫ!ѓБ‚ eb€сту#)€‚а +)€Б‰€шщ!€ъ €ы!€ь ))*‡" [buffer-read-only nil msg-string rmail-current-message error t fill-prefix case-fold-search digest-name count found n widen buffer-substring rmail-msgbeg rmail-msgend narrow-to-region ((byte-code "… ВedT\"€Гed\"€Д	!‡" [error rmail-current-message narrow-to-region delete-region rmail-show-message] 4)) delete-region search-forward "
*** EOOH ***
" "
0, unseen,,
*** EOOH ***
" "" mail-strip-quoted-names "

" mail-fetch-field "Reply-To" "To" "Apparently-To" "Message is not a digest" skip-chars-backward " 	
" 10 0 forward-line -1 looking-at "End of.*Digest.*
" regexp-quote "*********" "*" "\\(
------*\\)*" re-search-forward "^" make-string 55 45 "-*
*" replace-match insert "To: " "
" 27 "


0, unseen,,
*** EOOH ***
" "End " move message "Message successfully undigestified" rmail-forget-messages rmail-show-message rmail-delete-forward] 43))