;ELC ;;; compiled by jwz@thalidomide on Mon May 23 23:44:55 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-reply.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.")) (byte-code "MMMM" [vm-do-reply #[(to-all include-text count) " !\n ʼn \n    e = @\"!?) @\" @!! @\"  @\")\nߚ?\n\n   ! \")㚬  P  @\"Q @\"Q @!Q!% @\" @\"  Q    Q   @\" @\" @\" BBB % @\" @\"B A 0-.!  ! )! ! 1! ! # #!#ĉ# #  #    \"  #  \"  !  # \"#\"!#@AB@!AC# \n  &DE!FGEHebIJK!LQ#)MuN@!dbAm)OP!OQ!. " [vm-select-marked-or-prefixed-messages count default-directory vm-message-pointer t nil newsgroups tmp2 tmp references in-reply-to mp subject cc to case-fold-search message-pointer dir mlist vm-get-header-contents "Reply-To:" reply-to vm-ignored-reply-to "From:" vm-grok-From_-author error "No From: or Reply-To: header in message" "Subject:" vm-in-reply-to-format vm-summary-uninteresting-senders vm-sprintf "" vm-reply-subject-prefix string-match regexp-quote 0 "," to-all "To:" "Cc:" "References:" "In-reply-to:" "Message-ID:" "Followup-To:" "Newsgroups:" vm-strip-reply-headers mail-use-rfc822 mail-strip-quoted-names vm-parse-addresses vm-reply-ignored-addresses vm-strip-ignored-addresses vm-delete-duplicates append copy-sequence mapconcat identity ",\n " delq " " vm-parse "[^<]*\\(<[^>]+>\\)" "\n " "[ \n,]*\\([^ \n,]+\\)" vm-mail-internal format "reply to %s%s" vm-su-full-name ", ..." make-local-variable vm-reply-list replying vm-system-state include-text re-search-forward "^" mail-header-separator "$" 1 vm-yank-message run-hooks vm-reply-hook vm-mail-mode-hook] 14] vm-strip-ignored-addresses #[(addresses) " !‰  @ @\" @ \" Al Aa+ " [copy-sequence addresses nil addr-list list re-list vm-reply-ignored-addresses string-match delq] 4] vm-ignored-reply-to #[(reply-to) "  @\"p Al\n*" [reply-to nil result re-list vm-reply-ignored-reply-tos string-match t] 4] vm-mail-yank-default #[(message) "\n #g=!\n\"c)  `Wcyq," [vm-reorder-message-headers nil vm-included-text-headers vm-included-text-discard-header-regexp 10 delete-char 1 vm-included-text-attribution-format vm-summary-uninteresting-senders vm-sprintf message zmacs-regions t mark-even-if-inactive mark-marker end vm-included-text-prefix] 4]] 2) (fset 'vm-yank-message-other-folder #[(folder) "p ! !qp =   \" @HHҋ)qӎ @!. " [nil mp prompt result default sumbuf newbuf b vm-get-file-buffer folder find-file-noselect major-mode vm-mode vm-message-pointer error "No messages in folder %s" 1 0 ((byte-code "\n$p \"\n U\n! Θ    ! ` S!" [((vm-summarize)) vm-display vm-summary-buffer t (vm-yank-message-other-folder) (vm-yank-message-other-folder composing-message) sumbuf format "Yank message number: (default %s) " default prompt 0 result read-string "" string-to-int vm-message-list mp error "No such message."] 6)) ((byte-code " !\n!" [bury-buffer newbuf sumbuf] 2)) vm-mail-buffer vm-yank-message] 7 "\ Like vm-yank-message except the message is yanked from a folder other than the one that spawned the current Mail mode buffer. The name of the folder is read from the minibuffer. Don't call this function from a program." (byte-code "!\n  $+C" [vm-folder-directory expand-file-name default-directory last-command this-command dir read-file-name "Yank from folder: " nil t] 5)]) (fset 'vm-yank-message #[(message) " !! !HH\"ʉ$HHJp`~HHq~HHHH# HHHHZ\\*!!!!," [bufferp vm-mail-buffer error "This is not a VM Mail mode buffer." buffer-name "The folder buffer containing message %d has been killed." message 1 0 vm-display nil (vm-yank-message) (vm-yank-message composing-message) 5 end start b 9 append-to-buffer 4 make-marker push-mark mail-citation-hook run-hooks mail-yank-hooks vm-mail-yank-default] 5 "\ Yank message number N into the current buffer at point. When called interactively N is always read from the minibuffer. When called non-interactively the first argument is expected to be a message struct. This command is meant to be used in VM created Mail mode buffers; the yanked message comes from the mail buffer containing the message you are replying to, forwarding, or invoked VM's mail command from. All message headers are yanked along with the text. Point is left before the inserted text, the mark after. Any hook functions bound to mail-citation-hook are run, after inserting the text and setting point and mark. For backward compatibility, if mail-citation-hook is set to nil, `mail-yank-hooks' is run instead. If mail-citation-hook and mail-yank-hooks are both nil, this default action is taken: the yanked headers are trimmed as specified by vm-included-text-headers and vm-included-text-discard-header-regexp, and the value of vm-included-text-prefix is prepended to every yanked line." (byte-code "\n !!q  @HH\" U !Ҙ !e S!)@.C" [nil 0 last-command this-command prompt result default mp vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-message-pointer 1 format "Yank message number: (default %s) " "Yank message number: " read-string "" string-to-int vm-message-list "No such message."] 7)]) (fset 'vm-mail-send-and-exit #[(arg) "p p=p!p$ĉ$)" [b vm-mail-send bury-buffer vm-display nil (vm-mail-send-and-exit) (vm-mail-send-and-exit reading-message startup) (vm-mail-send-and-exit) (vm-mail-send-and-exit reading-message startup)] 5 "\ Just like mail-send-and-exit except that VM flags the appropriate message(s) as having been replied to, if appropriate." "P"]) (byte-code "MM" [vm-keep-mail-buffer #[(buffer) " > \" B #=? \" @ >ˡ)" [buffer vm-kept-mail-buffers delq vm-delete buffer-name t vm-keep-sent-messages 0 extras mapcar #[(b) " ! !" [buffer-name b kill-buffer] 2] nil] 4] vm-help-tale #[nil "eb ! bq b # \" bY)" [vm-match-header "To:\\|Resent-To:\\|Cc:\\|Resent-Cc:" vm-matched-header-end vm-matched-header-contents-start re-search-forward "[^, ][ ]*\n[ \n]+[^ \n]" vm-matched-header-contents-end t error "tale is an idiot, and so are you. :-)" user-login-name] 4]] 2) (fset 'vm-mail-send #[nil " \n!!! )  =  =  = p!ԉ$" [vm-tale-is-an-idiot vm-help-tale vm-confirm-mail-send y-or-n-p "Send the message? " error "Message not sent." set-buffer-modified-p t mail-send vm-rename-current-mail-buffer vm-system-state replying vm-mail-mark-replied forwarding vm-mail-mark-forwarded redistributing vm-mail-mark-redistributed vm-keep-mail-buffer vm-display nil (vm-mail-send) (vm-mail-send)] 5 "\ Just like mail-send except that VM flags the appropriate message(s) as replied to, forwarded, etc, if appropriate." nil]) (byte-code "MMMM" [vm-rename-current-mail-buffer #[nil " \"? HU \" ! GU! GU! GU  \")! # Tm!+)" [nil case-fold-search string-match "^sent " buffer-name n name prefix 0 42 format "sent %s" recipients mail-fetch-field "To" "Cc" "Bcc" "the horse with no name" "sent mail to %s" 1 get-buffer "%s<%d>" rename-buffer] 4] vm-mail-mark-replied #[nil " @HH! @HHq @ > @HH @\" AT *" [vm-reply-list mp buffer-name 1 9 vm-message-list 2 4 vm-set-replied-flag t vm-update-summary-and-mode-line] 4] vm-mail-mark-forwarded #[nil " @HH! @HHq @ > @HH @\" AT *" [vm-forward-list mp buffer-name 1 9 vm-message-list 2 6 vm-set-forwarded-flag t vm-update-summary-and-mode-line] 4] vm-mail-mark-redistributed #[nil " @HH! @HHq @ > @HH @\" AT *" [vm-redistribute-list mp buffer-name 1 9 vm-message-list 2 8 vm-set-redistributed-flag t vm-update-summary-and-mode-line] 4]] 2) (fset 'vm-reply #[(count) " !! q ȉ #" [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 vm-do-reply nil count] 4 "\ Reply to the sender of the current message. Numeric prefix argument N means to reply to the current message plus the next N-1 messages. A negative N means reply to the current message and the previous N-1 messages. If invoked on marked messages (via vm-next-command-uses-marks), all marked messages will be replied to. You will be placed into a standard Emacs Mail mode buffer to compose and send your message. See the documentation for the function `mail' for more info. Note that the normal binding of C-c C-y in the reply buffer is automatically changed to vm-yank-message during a reply. This allows you to yank any message from the current folder into a reply. Normal VM commands may be accessed in the reply buffer by prefixing them with C-c C-v." "p"]) (fset 'vm-reply-include-text #[(count) " !! q \n#" [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 vm-do-reply nil t count] 4 "\ Reply to the sender (only) of the current message and include text from the message. See the documentation for function vm-reply for details." "p"]) (fset 'vm-followup #[(count) " !! q \n#" [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 vm-do-reply t nil count] 4 "\ Reply to all recipients of the current message. See the documentation for the function vm-reply for details." "p"]) (fset 'vm-followup-include-text #[(count) " !! q ȉ #" [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 vm-do-reply t count] 4 "\ Reply to all recipients of the current message and include text from the message. See the documentation for the function vm-reply for details." "p"]) (fset 'vm-forward-message-all-headers #[nil " *" [nil "only-drop-this-header" vm-unforwarded-header-regexp vm-forwarded-headers vm-forward-message] 2 "\ Like vm-forward-message but always forwards all the headers." nil]) (fset 'vm-forward-message #[nil " !! q = \n !)~@!@!#@\")#!@Ceb\"!Q# 嚫'(# 隫'(# ך@'(#!)!!*" [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 last-command vm-next-command-uses-marks vm-forwarding-digest-type vm-digest-send-type this-command command-execute vm-send-digest default-directory vm-message-pointer mp dir vm-mail-internal format "forward of %s's note re: %s" vm-su-full-name vm-su-subject nil vm-forwarding-subject-format vm-summary-uninteresting-senders vm-sprintf make-local-variable vm-forward-list forwarding vm-system-state re-search-forward "^" regexp-quote mail-header-separator "\n" 0 "rfc934" vm-rfc934-encapsulate-messages vm-forwarded-headers vm-unforwarded-header-regexp "rfc1153" vm-rfc1153-encapsulate-messages vm-no-frills-encapsulate-message mail-position-on-field "To" run-hooks vm-forward-message-hook vm-mail-mode-hook] 6 "\ Forward the current message to one or more recipients. You will be placed in a Mail mode buffer as you would with a reply, but you must fill in the To: header and perhaps the Subject: header manually." nil]) (fset 'vm-resend-bounced-message #[nil " !! q p @HH  ~ @!b #!y`* @!\"!)eb #`d|eblj###!db%! -!!" [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 default-directory vm-message-pointer 0 4 lim dir start b vm-text-of t case-fold-search re-search-forward "^Received:" "This doesn't look like a bounced message." vm-mail-header-from vm-mail-internal format "retry of bounce from %s" vm-su-from insert-buffer-substring vm-reorder-message-headers "\\(X-VM-\\|Status:\\|Sender:\\)" vm-resend-bounced-headers vm-resend-bounced-discard-header-regexp search-forward "\n\n" replace-match "" 10 mail-header-separator mail-position-on-field "To" run-hooks vm-resend-bounced-message-hook vm-mail-mode-hook] 5 "\ Extract the original text from a bounced message and resend it. You will be placed in a Mail mode buffer with the extracted message and you can change the recipient address before resending the message." nil]) (fset 'vm-resend-message #[nil " !! q ~p@HH@HH  @!@!#!)eb  #`d|ebڱcщ###!%ڱeb!!+@C)!!." [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 default-directory vm-message-pointer 0 1 4 lim start vmp dir b nil vm-mail-header-from vm-mail-internal format "resend of %s's note re: %s" vm-su-full-name vm-su-subject insert-buffer-substring "Resent-From: " 10 "Resent-To: \n" vm-reorder-message-headers "\\(X-VM-\\|Status:\\|Sender:\\)" vm-resend-headers vm-resend-discard-header-regexp search-forward "\n\n" t replace-match "" mail-header-separator mail-position-on-field "Resent-To" make-local-variable vm-redistribute-list redistributing vm-system-state run-hooks vm-resend-message-hook vm-mail-mode-hook] 6 "\ Resend the current message to someone else. The current message will be copied to a Mail mode buffer and you can edit the message and send it as usual. NOTE: since you are doing a resend, a Resent-To header is provided for you to fill in. If you don't fill it in, when you send the message it will go to the original recipients listed in the To and Cc headers. You may also create a Resent-Cc header." nil]) (fset 'vm-send-digest #[(&optional prefix) "!!q =! ~ \"!!db`\"ܚ#\"##b$!&@\")*u uA]!\"-!!" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty default-directory vm-message-pointer last-command vm-next-command-uses-marks vm-select-marked-or-prefixed-messages 0 vm-message-list nil start mlist mp dir vm-mail-internal format "digest from %s" make-local-variable vm-forward-list forwarding vm-system-state message "Building %s digest..." vm-digest-send-type "rfc934" vm-rfc934-encapsulate-messages vm-rfc934-digest-headers vm-rfc934-digest-discard-header-regexp "rfc1153" vm-rfc1153-encapsulate-messages vm-rfc1153-digest-headers vm-rfc1153-digest-discard-header-regexp prefix "Building digest preamble..." vm-summary-uninteresting-senders vm-sprintf vm-digest-preamble-format "\n" vm-digest-center-preamble -1 center-line 1 mail-position-on-field "To" "Building %s digest... done" run-hooks vm-send-digest-hook vm-mail-mode-hook] 5 "\ Send a digest of all messages in the current folder to recipients. The type of the digest is specified by the variable vm-digest-send-type. You will be placed in a Mail mode buffer as is usual with replies, but you must fill in the To: and Subject: headers manually. Prefix arg means to insert a list of preamble lines at the beginning of the digest. One line is generated for each message being digestified. The variable vm-digest-preamble-format determines the format of the preamble lines. If invoked on marked messages (via vm-next-command-uses-marks), only marked messages will be put into the digest." "P"]) (fset 'vm-send-rfc934-digest #[(&optional preamble) " !)" ["rfc934" vm-digest-send-type vm-send-digest preamble] 2 "\ Like vm-send-digest but always sends an RFC 934 digest." "P"]) (fset 'vm-send-rfc1153-digest #[(&optional preamble) " !)" ["rfc1153" vm-digest-send-type vm-send-digest preamble] 2 "\ Like vm-send-digest but always sends an RFC 1153 digest." "P"]) (fset 'vm-continue-composing-message #[(&optional not-picky) "=p! ! p= $!)" [major-mode mail-mode bury-buffer vm-find-composition-buffer not-picky b vm-display t (vm-continue-composing-message) (vm-continue-composing-message composing-message) message "No composition buffers found"] 6 "\ Find and select the most recently used mail composition buffer. If the selected buffer is already a Mail mode buffer then it is buried before beginning the search. Non Mail mode buffers and unmodified Mail buffers are skipped. Prefix arg means unmodified Mail mode buffers are not skipped. If no suitable buffer is found, the current buffer remains selected." "P"]) (fset 'vm-mail-internal #[(&optional buffer-name to subject in-reply-to cc references newsgroups) "\n>p !q! \n !! =! ;ֱֱֱֱֱ  ֱ\"\"ֱ$$ֱ& ֱ))ֱ++chUc-ֱ.;.c).=c!2;2!)p7D$!!)" [nil folder-buffer major-mode (vm-mode vm-virtual-mode) generate-new-buffer buffer-name "*VM-mail*" auto-save-mode auto-save-default mail-mode vm-mail-buffer use-local-map vm-mail-mode-map fboundp mail-aliases-setup mail-aliases t file-exists-p "~/.mailrc" build-mail-aliases vm-mail-header-from "From: " "\n" "To: " to "" cc "Cc: " "Subject: " subject newsgroups "Newsgroups: " in-reply-to "In-Reply-To: " references "References: " mail-default-reply-to "Reply-To: " mail-self-blind "Bcc: " user-login-name mail-archive-file-name "FCC: " mail-default-headers 10 mail-header-separator mail-signature "-- \n" insert-file-contents boundp mail-signature-file "~/.signature" ((byte-code "p!" [switch-to-buffer] 2)) vm-display (vm-mail vm-mail-other-frame vm-mail-other-window vm-reply vm-reply-other-frame vm-reply-include-text vm-reply-include-text-other-frame vm-followup vm-followup-other-frame vm-followup-include-text vm-followup-include-text-other-frame vm-send-digest vm-send-digest-other-frame vm-send-rfc934-digest vm-send-rfc934-digest-other-frame vm-send-rfc1153-digest vm-send-rfc1153-digest-other-frame vm-forward-message vm-forward-message-other-frame vm-forward-message-all-headers vm-forward-message-all-headers-other-frame vm-resend-message vm-resend-message-other-frame vm-resend-bounced-message vm-resend-bounced-message-other-frame) this-command composing-message mail-position-on-field "To" run-hooks mail-setup-hook] 6]) (fset 'vm-reply-other-frame #[(count) " \n!" [vm-goto-new-frame vm-reply count] 2 "\ Like vm-reply, but run in a newly created frame." "p"]) (fset 'vm-reply-include-text-other-frame #[(count) " \n!" [vm-goto-new-frame vm-reply-include-text count] 2 "\ Like vm-reply-include-text, but run in a newly created frame." "p"]) (fset 'vm-followup-other-frame #[(count) " \n!" [vm-goto-new-frame vm-followup count] 2 "\ Like vm-followup, but run in a newly created frame." "p"]) (fset 'vm-followup-include-text-other-frame #[(count) " \n!" [vm-goto-new-frame vm-followup-include-text count] 2 "\ Like vm-followup-include-text, but run in a newly created frame." "p"]) (fset 'vm-forward-message-all-headers-other-frame #[nil " " [vm-goto-new-frame vm-forward-message-all-headers] 1 "\ Like vm-forward-message-all-headers, but run in a newly created frame." nil]) (fset 'vm-forward-message-other-frame #[nil " " [vm-goto-new-frame vm-forward-message] 1 "\ Like vm-forward-message, but run in a newly created frame." nil]) (fset 'vm-resend-message-other-frame #[nil " " [vm-goto-new-frame vm-resend-message] 1 "\ Like vm-resend-message, but run in a newly created frame." nil]) (fset 'vm-resend-bounced-message-other-frame #[nil " " [vm-goto-new-frame vm-resend-bounced-message] 1 "\ Like vm-resend-bounced-message, but run in a newly created frame." nil]) (fset 'vm-send-digest-other-frame #[(&optional prefix) " \n!" [vm-goto-new-frame vm-send-digest prefix] 2 "\ Like vm-send-digest, but run in a newly created frame." "P"]) (fset 'vm-send-rfc934-digest-other-frame #[(&optional prefix) " \n!" [vm-goto-new-frame vm-send-rfc934-digest prefix] 2 "\ Like vm-send-rfc934-digest, but run in a newly created frame." "P"]) (fset 'vm-send-rfc1153-digest-other-frame #[(&optional prefix) " \n!" [vm-goto-new-frame vm-send-rfc1153-digest prefix] 2 "\ Like vm-send-rfc1153-digest, but run in a newly created frame." "P"])