# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 859760638 0
# Node ID c945c9845f013de9ecf3f25fd79aaec83219b4a9
# Parent  958340c8db5ee835c454f3b7f505b57518d019a0
(rmail-output-to-rmail-file):
Use find-buffer-visiting instead of get-file-buffer.

diff -r 958340c8db5e -r c945c9845f01 lisp/mail/rmailout.el
--- 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))))