Mercurial > emacs

changeset 11409:4c3096cfd900

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-do-fcc): Use just find-buffer-visiting to find buffer to append to.
author Richard M. Stallman <rms@gnu.org>
date Thu, 13 Apr 1995 05:43:35 +0000
parents 9fbaec64d072
children 9f1825e7fc8f
files lisp/mail/sendmail.el
diffstat 1 files changed, 1 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- 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))