🚀 go-pugleaf

I think there is a small bug in find-alternate-file (files.el, emacs
18.55).  If you are in RMAIL mode and do find-alternate-file
(presumably by mistake) it will read in the alternate file without
giving you a chance of saving your mail.

The fix is quite simple.  Just take out the test "(not
buffer-read-only)".  Why is it there anyway?

;; slight change from standard definition
;; because if current file is RMAIL + modified the test for
;; buffer-read-only allows it to be thrown away!
(defun find-alternate-file (filename)
  "Find file FILENAME, select its buffer, kill previous buffer.
If the current buffer now contains an empty file that you just visited
\(presumably by mistake), use this command to visit the file you really want."
  (interactive "FFind alternate file: ")
  (and (buffer-modified-p)
       ;; (not buffer-read-only) ; comment out this line!
       (not (yes-or-no-p (format "Buffer %s is modified; kill anyway? "
				 (buffer-name))))
       (error "Aborted"))
  (let ((obuf (current-buffer))
	(ofile buffer-file-name)
	(oname (buffer-name)))
    (rename-buffer " **lose**")
    (setq buffer-file-name nil)
    (unwind-protect
	(progn
	  (unlock-buffer)
	  (find-file filename))
      (cond ((eq obuf (current-buffer))
	     (setq buffer-file-name ofile)
	     (lock-buffer)
	     (rename-buffer oname))))
    (kill-buffer obuf)))

						Marc Shapiro

INRIA, B.P. 105, 78153 Rocquencourt Cedex, France.  Tel.: +33 (1) 39-63-53-25;
fax: +33 (1) 39-63-53-30; e-mail: shapiro@sor.inria.fr