;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Apr 20 16:32:04 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/undigest.el ;;; emacs version 19.28.90.31. ;;; 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"))) (error "`/gd/gnu/emacs/19.0/lisp/undigest.el' was compiled for Emacs 19")) (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!`!`!`!)g!!dbxVyS!R!xx!+\"Q!!`!`}!eb)\"Q#6!!б`#`}! eb)eb#2 3eb3#1!!)),!\n9 9! >?@ {A BCDE!?>F ,Eq?>F *G )," [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 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\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 (#$ . 510) nil])