comparison lisp/mail/sendmail.el @ 11409:4c3096cfd900

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

11408:9fbaec64d072

      (let ((case-fold-search nil))
	(while (search-forward "\nFrom " nil t)
	  (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)))))
	       (curbuf (current-buffer))
	       (beg (point-min)) (end (point-max))
	       (beg2 (save-excursion (goto-char (point-min))
				     (forward-line 2) (point))))
	  (if buffer

11409:4c3096cfd900

      (let ((case-fold-search nil))
	(while (search-forward "\nFrom " nil t)
	  (forward-char -5)
	  (insert ?>)))
      (while fcc-list
	(let* ((buffer (find-buffer-visiting (car fcc-list)))
	       (curbuf (current-buffer))
	       (beg (point-min)) (end (point-max))
	       (beg2 (save-excursion (goto-char (point-min))
				     (forward-line 2) (point))))
	  (if buffer