[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el

[Eli Zaretskii]

Index: emacs/lisp/mail/rmail.el
diff -c emacs/lisp/mail/rmail.el:1.353 emacs/lisp/mail/rmail.el:1.354
*** emacs/lisp/mail/rmail.el:1.353      Sat Feb  2 11:29:06 2002
--- emacs/lisp/mail/rmail.el    Sun Feb  3 06:34:29 2002
***************
*** 625,631 ****
                   (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))
         ;; 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).
--- 625,633 ----
                   (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)))
!        ;; 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).