Mercurial > emacs
diff lisp/mail/rmailout.el @ 17268:c945c9845f01
(rmail-output-to-rmail-file):
Use find-buffer-visiting instead of get-file-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Mar 1997 22:23:58 +0000 |
| parents | 958340c8db5e |
| children | 7a3eb2b72749 |
line wrap: on
line diff
--- a/lisp/mail/rmailout.el Sun Mar 30 22:22:32 1997 +0000 +++ b/lisp/mail/rmailout.el Sun Mar 30 22:23:58 1997 +0000 @@ -87,7 +87,7 @@ (rmail-output file-name count) (rmail-maybe-set-message-counters) (setq file-name (abbreviate-file-name file-name)) - (or (get-file-buffer file-name) + (or (find-buffer-visiting file-name) (file-exists-p file-name) (if (yes-or-no-p (concat "\"" file-name "\" does not exist, create it? ")) @@ -113,7 +113,7 @@ (widen) ;; Decide whether to append to a file or to an Emacs buffer. (save-excursion - (let ((buf (get-file-buffer file-name)) + (let ((buf (find-buffer-visiting file-name)) (cur (current-buffer)) (beg (1+ (rmail-msgbeg rmail-current-message))) (end (1+ (rmail-msgend rmail-current-message))))