[Emacs-diffs] Changes to emacs/lisp/simple.el

[Chong Yidong]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.749 emacs/lisp/simple.el:1.750
*** emacs/lisp/simple.el:1.749  Mon Sep 12 22:58:55 2005
--- emacs/lisp/simple.el        Thu Sep 15 03:47:22 2005
***************
*** 4444,4451 ****
    (let ((cc (cdr (assoc-string "cc" other-headers t)))
        (in-reply-to (cdr (assoc-string "in-reply-to" other-headers t)))
        (body (cdr (assoc-string "body" other-headers t))))
!     (mail (if continue t 'new)
!         to subject in-reply-to cc yank-action send-actions)
      (save-excursion
        (rfc822-goto-eoh)
        (while other-headers
--- 4444,4452 ----
    (let ((cc (cdr (assoc-string "cc" other-headers t)))
        (in-reply-to (cdr (assoc-string "in-reply-to" other-headers t)))
        (body (cdr (assoc-string "body" other-headers t))))
!     (or (mail continue to subject in-reply-to cc yank-action send-actions)
!       continue
!       (error "Message aborted"))
      (save-excursion
        (rfc822-goto-eoh)
        (while other-headers