diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2002-02-03 11:34:29 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2002-02-03 11:34:29 +0000 |
| commit | 85eba33954ed911e61c16317f84f5ef138349a33 (patch) | |
| tree | 9dceaf9cc08cf46483f4eb0d142dda91a6ef9d4d /lisp/mail/rmail.el | |
| parent | 40189bd6e9b66aaee1ae29fc4f0fc0bba8f59099 (diff) | |
| download | emacs-85eba33954ed911e61c16317f84f5ef138349a33.tar.gz emacs-85eba33954ed911e61c16317f84f5ef138349a33.tar.bz2 emacs-85eba33954ed911e61c16317f84f5ef138349a33.zip | |
(rmail): Use find-buffer-visiting instead of
get-file-buffer to check for rmail buffer existence.
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
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). |