From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Apr 1995 05:43:35 +0000 (+0000)
Subject: (mail-do-fcc): Use just find-buffer-visiting
X-Git-Tag: emacs-19.34~4449
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89901917efbd37aa577f3e5b207864e07af7ad5a;p=emacs.git

(mail-do-fcc): Use just find-buffer-visiting
to find buffer to append to.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index d2cc11c6c40..cb860322aab 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -619,20 +619,7 @@ the user from the mailer."
 	  (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))