;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Oct 1 23:35:31 1995 ;;; from file /home/fsf/rms/e19/lisp/undigest.el ;;; emacs version 19.29.9. ;;; 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.28.90"))) (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``}\fcedS}*Ȏebe!`|c`d} Ќ!`e`}db!f!f!f!)m!!dbx`Vy!R!{{!*\"Q!!`!`}!eb)\"Q#4!!ѱ`#`}! eb)eb#0 2eb2#/!))-!\n8 8! => w@ ABCD!>=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 (#$ . 499) nil])