(rmail): Use find-buffer-visiting instead of

get-file-buffer to check for rmail buffer existence.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index fc3a6926f0fcf4a19a5c47b98cb227f32fa8efa4..4d3d39d0f0d09f05b7ba5f0cab16e847d3ea451d 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -625,7 +625,9 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
                   (list (read-file-name "Run rmail on RMAIL file: "))))
   (rmail-require-mime-maybe)
   (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name)))
-        (existed (get-file-buffer file-name))
+        ;; Use find-buffer-visiting, not get-file-buffer, for those users
+        ;; who have find-file-visit-truename set to t.
+        (existed (find-buffer-visiting file-name))
         ;; This binding is necessary because we must decide if we
         ;; need code conversion while the buffer is unibyte
         ;; (i.e. enable-multibyte-characters is nil).