1 files changed, 1 insertions, 14 deletions

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