🚀 go-pugleaf

------- Start of forwarded message -------
In-Reply-To: <9212182111.AA25879@traffic> "kevin@traffic.den.mmc.com"
From: desj@ccr-p.ida.org (David desJardins)
To: kevin@traffic.den.mmc.com
Subject: mail-send incorrectly resets modified status
Date: Tue, 5 Jan 93 17:56:49 EST

I've been using your mod to mail-send for a while now with no ill effects.

                                        David desJardins
------- End of forwarded message -------

Here is the patch that implements the most recent version of that
modification:

*** sendmail.el.dist	Tue Jan 28 14:22:56 1992
--- sendmail.el	Wed Jan  6 16:18:04 1993
***************
*** 169,177 ****
    (interactive)
    (message "Sending...")
    (funcall send-mail-function)
!   (set-buffer-modified-p nil)
!   (delete-auto-save-file-if-necessary)
!   (message "Sending...done"))
  
  (defun sendmail-send-it ()
    (let ((errbuf (if mail-interactive
--- 169,183 ----
    (interactive)
    (message "Sending...")
    (funcall send-mail-function)
!   (message "Sending...done")
!   (if (buffer-modified-p)
!       (if buffer-file-name
! 	  (if (or noninteractive
! 		  (y-or-n-p (format "Save file %s? " buffer-file-name)))
! 	      (save-buffer))
! 	(progn
! 	  (set-buffer-modified-p nil)
! 	  (delete-auto-save-file-if-necessary)))))
  
  (defun sendmail-send-it ()
    (let ((errbuf (if mail-interactive