(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 a7b2c3848ae12678302528d8cc66345fe8eea407..b28a0311298dd2958ba78297f21b59f3ddc55a94 100644 (file)
--- 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 eb592ed4126937c7ce60c22cbf22dab5c57fedd3..2b3c1ee84ab0c4ba2c8d119de2f0bd3d70352af1 100644 (file)
--- 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).