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