Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-reply.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 441bb1e64a06
children 05472e90ae02
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
128 (let ((case-fold-search nil)) 128 (let ((case-fold-search nil))
129 (re-search-forward 129 (re-search-forward
130 (concat "^" (regexp-quote mail-header-separator) "$") nil 0)) 130 (concat "^" (regexp-quote mail-header-separator) "$") nil 0))
131 (forward-char 1) 131 (forward-char 1)
132 (while mlist 132 (while mlist
133 (vm-yank-message (car mlist)) 133 (save-restriction
134 (goto-char (point-max)) 134 (narrow-to-region (point) (point))
135 (vm-yank-message (car mlist))
136 (goto-char (point-max)))
135 (setq mlist (cdr mlist))))) 137 (setq mlist (cdr mlist)))))
136 (run-hooks 'vm-reply-hook) 138 (run-hooks 'vm-reply-hook)
137 (run-hooks 'vm-mail-mode-hook))) 139 (run-hooks 'vm-mail-mode-hook)))
138 140
139 (defun vm-strip-ignored-addresses (addresses) 141 (defun vm-strip-ignored-addresses (addresses)
574 576
575 (defun vm-forward-message-all-headers () 577 (defun vm-forward-message-all-headers ()
576 "Like vm-forward-message but always forwards all the headers." 578 "Like vm-forward-message but always forwards all the headers."
577 (interactive) 579 (interactive)
578 (let ((vm-forwarded-headers nil) 580 (let ((vm-forwarded-headers nil)
579 (vm-unforwarded-header-regexp "only-drop-this-header")) 581 (vm-unforwarded-header-regexp "only-drop-this-header")
582 ;; set these because vm-forward-message calls vm-send-digest
583 ;; if there is more than one message to be forwarded.
584 (vm-rfc934-digest-headers nil)
585 (vm-rfc934-digest-discard-header-regexp "only-drop-this-header")
586 (vm-rfc1153-digest-headers nil)
587 (vm-rfc1153-digest-discard-header-regexp "only-drop-this-header")
588 (vm-mime-digest-headers nil)
589 (vm-mime-digest-discard-header-regexp "only-drop-this-header"))
580 (vm-forward-message))) 590 (vm-forward-message)))
581 591
582 (defun vm-forward-message () 592 (defun vm-forward-message ()
583 "Forward the current message to one or more recipients. 593 "Forward the current message to one or more recipients.
584 You will be placed in a Mail mode buffer as you would with a 594 You will be placed in a Mail mode buffer as you would with a
989 (and cc (insert "Cc: " cc "\n")) 999 (and cc (insert "Cc: " cc "\n"))
990 (insert "Subject: " (or subject "") "\n") 1000 (insert "Subject: " (or subject "") "\n")
991 (and newsgroups (insert "Newsgroups: " newsgroups "\n")) 1001 (and newsgroups (insert "Newsgroups: " newsgroups "\n"))
992 (and in-reply-to (insert "In-Reply-To: " in-reply-to "\n")) 1002 (and in-reply-to (insert "In-Reply-To: " in-reply-to "\n"))
993 (and references (insert "References: " references "\n")) 1003 (and references (insert "References: " references "\n"))
1004 (insert "X-Mailer: VM " vm-version " under "
1005 (if (vm-fsfemacs-19-p) "Emacs " "")
1006 emacs-version "\n")
994 ;; REPLYTO support for FSF Emacs v19.29 1007 ;; REPLYTO support for FSF Emacs v19.29
995 (and (eq mail-default-reply-to t) 1008 (and (eq mail-default-reply-to t)
996 (setq mail-default-reply-to (getenv "REPLYTO"))) 1009 (setq mail-default-reply-to (getenv "REPLYTO")))
997 (if mail-default-reply-to 1010 (if mail-default-reply-to
998 (insert "Reply-To: " mail-default-reply-to "\n")) 1011 (insert "Reply-To: " mail-default-reply-to "\n"))