From: Eli Zaretskii 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 + + * 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 * 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).