diff options
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)) |