(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 d2cc11c6c401cd39a60b925b256ceb2c03656d14..cb860322aab0d37190af0d9df7bbfb7d684693f5 100644 (file)
--- 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))