mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail): Use find-buffer-visiting instead of

Browse Source 
get-file-buffer to check for rmail buffer existence.
This commit is contained in:
Eli Zaretskii 2002-02-03 11:34:29 +00:00
parent 40189bd6e9
commit 85eba33954
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/mail/rmail.el
View File

@ -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).