bug#20211: 24.4; sendmail.el

[Richard Ryniker]

> We should be able to use the form (bufferp errbuf) once only

I concur.  Does the following look sensible to you?  Should we endeavor
to confirm good behavior when mail-interactive is true and the
sendmail program fails?

*** 1299,1308 ****
                    (error "Sending...failed to %s"
                           (buffer-substring (point-min) (point-max)))))))
        (kill-buffer tembuf)
!       (if (and (bufferp errbuf)
!                (not error))
!           (kill-buffer errbuf)
!         (switch-to-buffer-other-window errbuf)))))
  
  (autoload 'rmail-output-to-rmail-buffer "rmailout")
  
--- 1302,1310 ----
                    (error "Sending...failed to %s"
                           (buffer-substring (point-min) (point-max)))))))
        (kill-buffer tembuf)
!       (when (bufferp errbuf)
!         (if error (switch-to-buffer-other-window errbuf)
!           (kill-buffer errbuf))))))
  
  (autoload 'rmail-output-to-rmail-buffer "rmailout")