mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

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

Browse Source 
to find buffer to append to.
This commit is contained in:
Richard M. Stallman 1995-04-13 05:43:35 +00:00
parent 8ce6977ed7
commit 89901917ef
1 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/mail/sendmail.el
View File

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