Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-reply.el @ 126:1370575f1259 xemacs-20-1p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p1
author cvs
date Mon, 13 Aug 2007 09:27:39 +0200
parents cca96a509cfe
children b980b6286996
comparison
equal deleted inserted replaced
125:8b0638b347ec 126:1370575f1259
364 (if (not (eq vm-keep-sent-messages t)) 364 (if (not (eq vm-keep-sent-messages t))
365 (let ((extras (nthcdr (or vm-keep-sent-messages 0) 365 (let ((extras (nthcdr (or vm-keep-sent-messages 0)
366 vm-kept-mail-buffers))) 366 vm-kept-mail-buffers)))
367 (mapcar (function 367 (mapcar (function
368 (lambda (b) 368 (lambda (b)
369 (and (buffer-name b) (kill-buffer b)))) 369 (and (buffer-name b)
370 (not (buffer-modified-p b))
371 (kill-buffer b))))
370 extras) 372 extras)
371 (and vm-kept-mail-buffers extras 373 (and vm-kept-mail-buffers extras
372 (setcdr (memq (car extras) vm-kept-mail-buffers) nil))))) 374 (setcdr (memq (car extras) vm-kept-mail-buffers) nil)))))
373 375
374 (defun vm-help-tale () 376 (defun vm-help-tale ()
1013 (and in-reply-to (insert "In-Reply-To: " in-reply-to "\n")) 1015 (and in-reply-to (insert "In-Reply-To: " in-reply-to "\n"))
1014 (and references (insert "References: " references "\n")) 1016 (and references (insert "References: " references "\n"))
1015 (insert "X-Mailer: VM " vm-version " under " 1017 (insert "X-Mailer: VM " vm-version " under "
1016 (if vm-fsfemacs-19-p "Emacs " "") 1018 (if vm-fsfemacs-19-p "Emacs " "")
1017 emacs-version "\n") 1019 emacs-version "\n")
1018 ;; REPLYTO support for FSF Emacs v19.29 1020 ;; REPLYTO environmental variable support
1019 (and (eq mail-default-reply-to t) 1021 ;; note that in FSF Emacs v19.29 we would initialize if the
1022 ;; value was t. nil is the treigger value used now.
1023 (and (eq mail-default-reply-to nil)
1020 (setq mail-default-reply-to (getenv "REPLYTO"))) 1024 (setq mail-default-reply-to (getenv "REPLYTO")))
1021 (if mail-default-reply-to 1025 (if mail-default-reply-to
1022 (insert "Reply-To: " mail-default-reply-to "\n")) 1026 (insert "Reply-To: " mail-default-reply-to "\n"))
1023 (if mail-self-blind 1027 (if mail-self-blind
1024 (insert "Bcc: " (user-login-name) "\n")) 1028 (insert "Bcc: " (user-login-name) "\n"))