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

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

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index fc3a6926f0f..4d3d39d0f0d 100644
--- 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).