;ELC ;;; compiled by jwz@thalidomide on Sat May 21 06:29:35 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-digest.el ;;; emacs version 19.10 Lucid (beta25). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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 'vm-no-frills-encapsulate-message #[(m keep-list discard-regexp) "p cHH\nq~ q` \nHHHH# ` b##, bc+" [make-marker nil source-buffer end target-buffer "------- start of forwarded message -------\n" m 1 9 beg insert-buffer-substring 0 4 vm-reorder-message-headers "\\(X-VM-\\|Status:\\)" keep-list discard-regexp "------- end of forwarded message -------\n"] 5 "\ Encapsulate a message M for forwarding, simply. No message encapsulation standard is used. The message is inserted at point in the current buffer, surrounded by two dashed start/end separator lines. Point is not moved. M should be a message struct for a real message, not a virtual message. This is the message that will be encapsulated. KEEP-LIST should be a list of regexps matching headers to keep. DISCARD-REGEXP should be a regexp that matches headers to be discarded. KEEP-LIST and DISCARD-REGEXP are used to order and trim the headers to be forwarded. See the docs for vm-reorder-message-headers to find out how KEEP-LIST and DISCARD-REGEXP are used."]) (fset 'vm-rfc934-char-stuff-region #[(start end) " “ b` W #Ɖ#l) ‰" [make-marker end nil start re-search-forward "^-" t replace-match "- -"] 4 "\ Quote RFC 934 message separators between START and END. START and END are buffer positions in the current buffer. Lines beginning with `-' in the region have `- ' prepended to them."]) (fset 'vm-rfc934-char-unstuff-region #[(start end) " “ b` W #Ɖ#ui) ‰" [make-marker end nil start re-search-forward "^- " t replace-match ""] 4 "\ Unquote lines in between START and END as per RFC 934. START and END are buffer positions in the current buffer. Lines beginning with `- ' in the region have that string stripped from them."]) (fset 'vm-rfc934-encapsulate-messages #[(message-list keep-list discard-regexp) "p ‰ `c@HHJHHq~ q` HH HH#`“b‰##\",bcAy``|c b`y`|GA۪A \"#c b." [message-list make-marker nil n start m source-buffer end mlist target-buffer "---------------\n" 1 5 9 beg insert-buffer-substring 0 4 vm-reorder-message-headers "\\(X-VM-\\|Status:\\)" keep-list discard-regexp vm-rfc934-char-stuff-region "---------------" "------- end -------\n" format "------- start of %s%s(RFC 934 encapsulation) -------\n" "digest " "forwarded message " "(%d messages) " ""] 8 "\ Encapsulate the messages in MESSAGE-LIST as per RFC 934. The resulting digest is inserted at point in the current buffer. Point is not moved. MESSAGE-LIST should be a list of message structs (real or virtual). These are the messages that will be encapsulated. KEEP-LIST should be a list of regexps matching headers to keep. DISCARD-REGEXP should be a regexp that matches headers to be discarded. KEEP-LIST and DISCARD-REGEXP are used to order and trim the headers to be forwarded. See the docs for vm-reorder-message-headers to find out how KEEP-LIST and DISCARD-REGEXP are used."]) (fset 'vm-rfc1153-char-stuff-region #[(start end) " “ b` W #Ɖ#l) ‰" [make-marker end nil start re-search-forward "^------------------------------$" t replace-match " -----------------------------"] 4 "\ Quote RFC 1153 message separators between START and END. START and END are buffer positions in the current buffer. Lines consisting only of 30 hyphens have the first hyphen converted to a space."]) (fset 'vm-rfc1153-char-unstuff-region #[(start end) " “ b` W #Ɖ#l) ‰" [make-marker end nil start re-search-forward "^ -----------------------------$" t replace-match "------------------------------"] 4 "\ Unquote lines in between START and END as per RFC 1153. START and END are buffer positions in the current buffer. Lines consisting only of a space following by 29 hyphens have the space converted to a hyphen."]) (fset 'vm-rfc1153-encapsulate-messages #[(message-list keep-list discard-regexp) "p ‰`c@HHJHH q~q` HH HH#`“ b‰## \",bcA\"c b`y`|GAڪ#c b." [message-list make-marker nil start m source-buffer end mlist target-buffer "---------------\n\n" 1 5 9 beg insert-buffer-substring 0 4 vm-reorder-message-headers "\\(X-VM-\\|Status:\\)" keep-list discard-regexp vm-rfc1153-char-stuff-region "\n---------------" "---------------\n\nEnd of this Digest\n******************\n" format "This is an RFC 1153 digest.\n(%d message%s)\n----------------------------------------------------------------------\n" "s" ""] 7 "\ Encapsulate the messages in MESSAGE-LIST as per RFC 1153. The resulting digest is inserted at point in the current buffer. Point is not moved. MESSAGE-LIST should be a list of message structs (real or virtual). These are the messages that will be encapsulated. KEEP-LIST should be a list of regexps matching headers to keep. DISCARD-REGEXP should be a regexp that matches headers to be discarded. KEEP-LIST and DISCARD-REGEXP are used to order and trim the headers to be forwarded. See the docs for vm-reorder-message-headers to find out how KEEP-LIST and DISCARD-REGEXP are used."]) (fset 'vm-rfc1153-or-rfc934-burst-message #[(m rfc1153) "\n \n  \" deZV e d׎~؎ڍ." [nil t vm-folder-type folder-type separator-regexp prologue-separator-regexp after-prev-sep ident-header prev-sep match work-buffer vm-digest-identifier-header-format vm-sprintf m rfc1153 "^----------------------------------------------------------------------\n" "^------------------------------\n" "^-[^ ].*\n" buffer-size vm-sr-max vm-sr-min vm-sr-clip make-marker ((byte-code "~ \n} É\nÉÇ" [vm-sr-clip vm-sr-min vm-sr-max nil] 3)) ((byte-code "!" [work-buffer kill-buffer] 2)) done (byte-code "!q HH ! HH#eb #\"eȕ| ԎȔ#*hU!ucȔȕ|!c`!c`gU!uc#!ed|eb \" k) U&ed\"ed\" HHq *+,db\n!,!+͇̇" [generate-new-buffer "*vm-work*" work-buffer insert-buffer-substring m 1 9 vm-text-of 0 4 re-search-forward prologue-separator-regexp nil t throw done match prev-sep match-data md ((store-match-data md)) vm-munge-message-separators folder-type after-prev-sep 10 delete-char -1 vm-trailing-message-separator vm-leading-message-separator ident-header separator-regexp vm-folder-type vm-find-leading-message-separator vm-skip-past-leading-message-separator vm-convert-folder-type-headers vm-find-trailing-message-separator vm-skip-past-trailing-message-separator buffer-size rfc1153 vm-rfc1153-char-unstuff-region vm-rfc934-char-unstuff-region buffer-modified-p inhibit-quit buffer-read-only old-buffer-modified-p set-buffer-modified-p] 6)] 9 "\ Burst messages from the digest message M. M should be a message struct for a real message. If RFC1153 is non-nil, assume the digest is of the form specified by RFC 1153. Otherwise assume RFC 934 digests."]) (fset 'vm-rfc934-burst-message #[(m) " \"" [vm-rfc1153-or-rfc934-burst-message m nil] 3 "\ Burst messages from the RFC 934 digest message M. M should be a message struct for a real message."]) (fset 'vm-rfc1153-burst-message #[(m) " \"" [vm-rfc1153-or-rfc934-burst-message m t] 3 "\ Burst messages from the RFC 1153 digest message M. M should be a message struct for a real message."]) (fset 'vm-burst-digest #[(&optional digest-type) "  !! q pɉ\n  @!@HHJ HHq@ pC\"t՚ !!\"ښ !ܚ !\"\" !#T#$ q!)! \nɉ*C$ \n!+" [digest-type vm-digest-burst-type vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty nil totals-blurb m start-buffer vm-virtual-message-p vm-message-pointer 1 5 9 vm-folder-read-only signal folder-read-only "guess" vm-guess-digest-type "Couldn't guess digest type." message "Bursting %s digest..." "rfc934" vm-rfc934-burst-message "rfc1153" vm-rfc1153-burst-message "Unknown digest type: %s" "Bursting %s digest... done" vm-clear-modification-flag-undos vm-set-buffer-modified-p t vm-modification-counter vm-delete-after-bursting vm-delete-message vm-assimilate-new-messages vm-emit-totals-blurb vm-display (vm-burst-digest vm-burst-rfc934-digest vm-burst-rfc1153-digest) this-command vm-thoughtfully-select-message vm-preview-current-message vm-update-summary-and-mode-line "No messages found in digest."] 6 "\ Burst the current message (a digest) into its individual messages. The digest's messages are assimilated into the folder as new mail would be. Optional argument DIGEST-TYPE is a string that tells VM what kind of digest the current message is. If it is not given the value defaults to the value of vm-digest-burst-type. When called interactively DIGEST-TYPE will be read from the minibuffer." (byte-code " \n\" C\"$̘ +C" [nil this-command last-command type completing-read format "Digest type: (default %s) " vm-digest-burst-type append vm-digest-type-alist ("guess") identity ""] 6)]) (fset 'vm-burst-rfc934-digest #[nil "!" [vm-burst-digest "rfc934"] 2 "\ Burst an RFC 934 style digest" nil]) (fset 'vm-burst-rfc1153-digest #[nil "!" [vm-burst-digest "rfc1153"] 2 "\ Burst an RFC 1153 style digest" nil]) (fset 'vm-guess-digest-type #[(m) "HHq~!b#Ȫ+" [m 1 9 vm-text-of search-forward "\n----------------------------------------------------------------------\n" nil t "rfc1153" "rfc934"] 4 "\ Guess the digest type of the message M. M should be the message struct of a real message. Returns either \"rfc934\" or \"rfc1153\"."])