Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

(rmail-output-to-rmail-file):

Browse source 
Use find-buffer-visiting instead of get-file-buffer.
This commit is contained in:
Richard M. Stallman 1997-03-30 22:23:58 +00:00
parent d607b17dbe
commit 80abd2a8dc
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/rmailout.el
View file

@ -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))))