[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Mon, 12 Sep 2005 18:58:56 -0400 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.748 emacs/lisp/simple.el:1.749
*** emacs/lisp/simple.el:1.748 Fri Sep 9 01:11:34 2005
--- emacs/lisp/simple.el Mon Sep 12 22:58:55 2005
***************
*** 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
--- 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