Mercurial > emacs
changeset 43087:0a5935fb4e9e
(rmail): Use find-buffer-visiting instead of
get-file-buffer to check for rmail buffer existence.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 03 Feb 2002 11:34:29 +0000 |
| parents | 2f5ddf0e74ba |
| children | 4090fee4e575 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Sun Feb 03 11:28:28 2002 +0000 +++ b/lisp/mail/rmail.el Sun Feb 03 11:34:29 2002 +0000 @@ -625,7 +625,9 @@ (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).