621 |
(list (read-file-name "Run rmail on RMAIL file: ")))) |
(list (read-file-name "Run rmail on RMAIL file: ")))) |
622 |
(rmail-require-mime-maybe) |
(rmail-require-mime-maybe) |
623 |
(let* ((file-name (expand-file-name (or file-name-arg rmail-file-name))) |
(let* ((file-name (expand-file-name (or file-name-arg rmail-file-name))) |
624 |
(existed (get-file-buffer file-name)) |
;; Use find-buffer-visiting, not get-file-buffer, for those users |
625 |
|
;; who have find-file-visit-truename set to t. |
626 |
|
(existed (find-buffer-visiting file-name)) |
627 |
;; This binding is necessary because we must decide if we |
;; This binding is necessary because we must decide if we |
628 |
;; need code conversion while the buffer is unibyte |
;; need code conversion while the buffer is unibyte |
629 |
;; (i.e. enable-multibyte-characters is nil). |
;; (i.e. enable-multibyte-characters is nil). |