/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.349.4.1 by eliz, Sat Feb 2 16:58:33 2002 UTC revision 1.349.4.2 by eliz, Sun Feb 3 11:41:13 2002 UTC
# Line 621  If `rmail-display-summary' is non-nil, m Line 621  If `rmail-display-summary' is non-nil, m
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).

Legend:
Removed from v.1.349.4.1  
changed lines
  Added in v.1.349.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26