home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / gnu / emacs / bug / 1610 < prev    next >
Encoding:
Text File  |  1993-01-07  |  1.8 KB  |  59 lines
  1. Newsgroups: gnu.emacs.bug
  2. Path: sparky!uunet!cis.ohio-state.edu!traffic.den.mmc.com!kevin
  3. From: kevin@traffic.den.mmc.com (Kevin Rodgers)
  4. Subject: Re: mail-send incorrectly resets modified status
  5. Message-ID: <9301062324.AA01736@traffic>
  6. Sender: gnulists@ai.mit.edu
  7. Reply-To: kevin@traffic.den.mmc.com
  8. Organization: GNUs Not Usenet
  9. Distribution: gnu
  10. Date: Wed, 6 Jan 1993 23:24:35 GMT
  11. Approved: bug-gnu-emacs@prep.ai.mit.edu
  12. Lines: 45
  13.  
  14. ------- Start of forwarded message -------
  15. In-Reply-To: <9212182111.AA25879@traffic> "kevin@traffic.den.mmc.com"
  16. From: desj@ccr-p.ida.org (David desJardins)
  17. To: kevin@traffic.den.mmc.com
  18. Subject: mail-send incorrectly resets modified status
  19. Date: Tue, 5 Jan 93 17:56:49 EST
  20.  
  21. I've been using your mod to mail-send for a while now with no ill effects.
  22.  
  23.                                         David desJardins
  24. ------- End of forwarded message -------
  25.  
  26. Here is the patch that implements the most recent version of that
  27. modification:
  28.  
  29. *** sendmail.el.dist    Tue Jan 28 14:22:56 1992
  30. --- sendmail.el    Wed Jan  6 16:18:04 1993
  31. ***************
  32. *** 169,177 ****
  33.     (interactive)
  34.     (message "Sending...")
  35.     (funcall send-mail-function)
  36. !   (set-buffer-modified-p nil)
  37. !   (delete-auto-save-file-if-necessary)
  38. !   (message "Sending...done"))
  39.   
  40.   (defun sendmail-send-it ()
  41.     (let ((errbuf (if mail-interactive
  42. --- 169,183 ----
  43.     (interactive)
  44.     (message "Sending...")
  45.     (funcall send-mail-function)
  46. !   (message "Sending...done")
  47. !   (if (buffer-modified-p)
  48. !       (if buffer-file-name
  49. !       (if (or noninteractive
  50. !           (y-or-n-p (format "Save file %s? " buffer-file-name)))
  51. !           (save-buffer))
  52. !     (progn
  53. !       (set-buffer-modified-p nil)
  54. !       (delete-auto-save-file-if-necessary)))))
  55.   
  56.   (defun sendmail-send-it ()
  57.     (let ((errbuf (if mail-interactive
  58.  
  59.