From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 3 Feb 2002 11:42:21 +0000 (+0000)
Subject: (rmail): Use find-buffer-visiting instead of
X-Git-Tag: emacs-21.2~125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3dc9fdbf4b620415acbbb1f7e455681c89be96f;p=emacs.git

(rmail): Use find-buffer-visiting instead of
get-file-buffer to check for rmail buffer existence.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7b2c3848ae..b28a0311298 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-02-03  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* mail/rmail.el (rmail): Use find-buffer-visiting instead of
+	get-file-buffer to check for rmail buffer existence.
+
+	* term.el (term-emulate-terminal): Extract proper command string
+	which is supplied to term-command-hook.
+
 2002-02-02  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* mail/uce.el (uce-reply-to-uce): Prune the headers before copying
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index eb592ed4126..2b3c1ee84ab 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -621,7 +621,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).