Mercurial > hg > xemacs-beta
diff lisp/vm/vm-reply.el @ 126:1370575f1259 xemacs-20-1p1
Import from CVS: tag xemacs-20-1p1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:27:39 +0200 |
| parents | cca96a509cfe |
| children | b980b6286996 |
line wrap: on
line diff
--- a/lisp/vm/vm-reply.el Mon Aug 13 09:26:41 2007 +0200 +++ b/lisp/vm/vm-reply.el Mon Aug 13 09:27:39 2007 +0200 @@ -366,7 +366,9 @@ vm-kept-mail-buffers))) (mapcar (function (lambda (b) - (and (buffer-name b) (kill-buffer b)))) + (and (buffer-name b) + (not (buffer-modified-p b)) + (kill-buffer b)))) extras) (and vm-kept-mail-buffers extras (setcdr (memq (car extras) vm-kept-mail-buffers) nil))))) @@ -1015,8 +1017,10 @@ (insert "X-Mailer: VM " vm-version " under " (if vm-fsfemacs-19-p "Emacs " "") emacs-version "\n") - ;; REPLYTO support for FSF Emacs v19.29 - (and (eq mail-default-reply-to t) + ;; REPLYTO environmental variable support + ;; note that in FSF Emacs v19.29 we would initialize if the + ;; value was t. nil is the treigger value used now. + (and (eq mail-default-reply-to nil) (setq mail-default-reply-to (getenv "REPLYTO"))) (if mail-default-reply-to (insert "Reply-To: " mail-default-reply-to "\n"))