From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 3 Feb 2002 11:34:29 +0000 (+0000)
Subject: (rmail): Use find-buffer-visiting instead of
X-Git-Tag: ttn-vms-21-2-B4~16863
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85eba33954ed911e61c16317f84f5ef138349a33;p=emacs.git

(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 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).