diff options
| author | Richard M. Stallman | 1995-04-13 05:43:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-04-13 05:43:35 +0000 |
| commit | 89901917efbd37aa577f3e5b207864e07af7ad5a (patch) | |
| tree | 2b7c6cbc4d21c71c14d7635fdb37a49f1b3eb4af | |
| parent | 8ce6977ed7ae5ffb43f29c0dbb53e6cf73a24e0c (diff) | |
| download | emacs-89901917efbd37aa577f3e5b207864e07af7ad5a.tar.gz emacs-89901917efbd37aa577f3e5b207864e07af7ad5a.zip | |
(mail-do-fcc): Use just find-buffer-visiting
to find buffer to append to.
| -rw-r--r-- | lisp/mail/sendmail.el | 15 |
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." | |||
| 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)) |