Mercurial > emacs
comparison lisp/mail/sendmail.el @ 11409:4c3096cfd900
(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 | e39cb5447c68 |
children | 994ec4698b78 |
comparison
equal
deleted
inserted
replaced
11408:9fbaec64d072 | 11409:4c3096cfd900 |
---|---|
617 (let ((case-fold-search nil)) | 617 (let ((case-fold-search nil)) |
618 (while (search-forward "\nFrom " nil t) | 618 (while (search-forward "\nFrom " nil t) |
619 (forward-char -5) | 619 (forward-char -5) |
620 (insert ?>))) | 620 (insert ?>))) |
621 (while fcc-list | 621 (while fcc-list |
622 (let* ((truename (file-truename (car fcc-list))) | 622 (let* ((buffer (find-buffer-visiting (car fcc-list))) |
623 (buffer | |
624 (or (get-file-buffer (car fcc-list)) | |
625 (get-file-buffer truename) | |
626 ;; Look for a buffer whose truename | |
627 ;; matches that of the file we want. | |
628 (let ((buflist (buffer-list))) | |
629 (save-excursion | |
630 (while buflist | |
631 (set-buffer (car buflist)) | |
632 (if (equal buffer-file-truename truename) | |
633 (setq buflist nil)) | |
634 (setq buflist (cdr buflist))) | |
635 (current-buffer))))) | |
636 (curbuf (current-buffer)) | 623 (curbuf (current-buffer)) |
637 (beg (point-min)) (end (point-max)) | 624 (beg (point-min)) (end (point-max)) |
638 (beg2 (save-excursion (goto-char (point-min)) | 625 (beg2 (save-excursion (goto-char (point-min)) |
639 (forward-line 2) (point)))) | 626 (forward-line 2) (point)))) |
640 (if buffer | 627 (if buffer |