[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el

[Chong Yidong]

Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.291 emacs/lisp/mail/sendmail.el:1.292
*** emacs/lisp/mail/sendmail.el:1.291   Mon Sep 12 21:58:21 2005
--- emacs/lisp/mail/sendmail.el Mon Sep 12 22:58:55 2005
***************
*** 1657,1662 ****
--- 1657,1665 ----
  
    (if (eq noerase 'new)
        (pop-to-buffer (generate-new-buffer "*mail*"))
+     (and noerase
+        (not (get-buffer "*mail*"))
+        (setq noerase nil))
      (pop-to-buffer "*mail*"))
  
    ;; Avoid danger that the auto-save file can't be written.
***************
*** 1673,1680 ****
    ;; (in case the user has actually visited a file *mail*).
  ;  (set-visited-file-name nil)
    (let (initialized)
!     (and (or (not noerase)
!            (eq noerase 'new))
         (if buffer-file-name
             (if (buffer-modified-p)
                 (when (y-or-n-p "Buffer has unsaved changes; reinitialize it 
and discard them? ")
--- 1676,1683 ----
    ;; (in case the user has actually visited a file *mail*).
  ;  (set-visited-file-name nil)
    (let (initialized)
!     (and (not (and noerase
!                  (not (eq noerase 'new))))
         (if buffer-file-name
             (if (buffer-modified-p)
                 (when (y-or-n-p "Buffer has unsaved changes; reinitialize it 
and discard them? ")