# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797751815 0
# Node ID 4c3096cfd9008ea87b1eb2f6e0fcb1b7c8ca781d
# Parent  9fbaec64d0724ce0eb06ae3495fffc9393847aa3
(mail-do-fcc): Use just find-buffer-visiting
to find buffer to append to.

diff -r 9fbaec64d072 -r 4c3096cfd900 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Thu Apr 13 05:12:24 1995 +0000
+++ b/lisp/mail/sendmail.el	Thu Apr 13 05:43:35 1995 +0000
@@ -619,20 +619,7 @@
 	  (forward-char -5)
 	  (insert ?>)))
       (while fcc-list
-	(let* ((truename (file-truename (car fcc-list)))
-	       (buffer
-		(or (get-file-buffer (car fcc-list))
-		    (get-file-buffer truename)
-		    ;; Look for a buffer whose truename
-		    ;; matches that of the file we want.
-		    (let ((buflist (buffer-list)))
-		      (save-excursion
-			(while buflist
-			  (set-buffer (car buflist))
-			  (if (equal buffer-file-truename truename)
-			      (setq buflist nil))
-			  (setq buflist (cdr buflist)))
-			(current-buffer)))))
+	(let* ((buffer (find-buffer-visiting (car fcc-list)))
 	       (curbuf (current-buffer))
 	       (beg (point-min)) (end (point-max))
 	       (beg2 (save-excursion (goto-char (point-min))