From 85eba33954ed911e61c16317f84f5ef138349a33 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 3 Feb 2002 11:34:29 +0000 Subject: [PATCH] (rmail): Use find-buffer-visiting instead of get-file-buffer to check for rmail buffer existence. --- lisp/mail/rmail.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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). -- 2.39.2