🚀 go-pugleaf

In article <9107182053.AA10978@tlsuna7.com>, duursma@tartan writes:
>In my .emacs I have the line
>(setq mail-archive-file-name "/tlsuna7/duursma/OMAIL")
>
>This, of course, causes outgoing mail to go to the OMAIL file.
>Sometimes I want to review mail I have sent, so I use "i" (rmail-input) to
>read this file.  Then, when I leave this buffer around, I have trouble sending
>mail; since the OMAIL buffer is write protected (the OMAIL file itself was),
>gnuemacs now complains that it can't append the message to it.

I have the following patch made to my RMAIL system so that the outgoing mail
file is not kept around after quitting from reading it.  This keeps the
problem from comming up:

;;; Fix to avoid problems with the outgoing mail file being read-only.
;;; Bruce Krulwich, Institute for the Learning Sciences, krulwich@ils.nwu.edu
;;;
(defun rmail-quit ()
  "Quit out of RMAIL."
  (interactive)
  (rmail-expunge-and-save)
  ;; Don't switch to the summary buffer even if it was recently visible.
  ;; also, if the buffer is the archive file, kill the buffer
  (let ((archive-p (string= buffer-file-name 
			    (expand-file-name mail-archive-file-name))))
    (if rmail-summary-buffer
	(if archive-p
	    (kill-buffer rmail-summary-buffer)
	    (bury-buffer rmail-summary-buffer)))
    (let ((obuf (current-buffer)))
      (switch-to-buffer (other-buffer))
      (if archive-p
	  (kill-buffer obuf)
	  (bury-buffer obuf)))))

Hope it helps.

Bruce Krulwich
krulwich@ils.nwu.edu