diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-03-30 22:23:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-03-30 22:23:58 +0000 |
| commit | 80abd2a8dca5dd5b49e28551d5eee6f837220bf2 (patch) | |
| tree | 644a25a9a9f6b437f19530e86789929a9c815caf /lisp/mail/rmailout.el | |
| parent | d607b17dbe34b7ca54c2af4e04d0e66345ba7dd3 (diff) | |
| download | emacs-80abd2a8dca5dd5b49e28551d5eee6f837220bf2.tar.gz | |
(rmail-output-to-rmail-file):
Use find-buffer-visiting instead of get-file-buffer.
Diffstat (limited to 'lisp/mail/rmailout.el')
| -rw-r--r-- | lisp/mail/rmailout.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 533283d8884..a82a9649afb 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -87,7 +87,7 @@ starting with the current one. Deleted messages are skipped and don't count." (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 @@ starting with the current one. Deleted messages are skipped and don't count." (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)))) |