Mercurial > emacs

changeset 65521:4de96b605e55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2005-09-15 Chong Yidong <cyd@stupidchicken.com> * simple.el (sendmail-user-agent-compose): Revert last change.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 15 Sep 2005 03:47:22 +0000
parents d7d263fcbadc
children 75da5ea5fb14
files lisp/ChangeLog lisp/simple.el
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Sep 15 03:30:39 2005 +0000
+++ b/lisp/ChangeLog	Thu Sep 15 03:47:22 2005 +0000
@@ -1,3 +1,7 @@
+2005-09-15  Chong Yidong  <cyd@stupidchicken.com>
+
+	* simple.el (sendmail-user-agent-compose): Revert last change.
+
 2005-09-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* net/ange-ftp.el (ange-ftp-process-filter): Revert to ^#+$.
--- a/lisp/simple.el	Thu Sep 15 03:30:39 2005 +0000
+++ b/lisp/simple.el	Thu Sep 15 03:47:22 2005 +0000
@@ -4444,8 +4444,9 @@
   (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)
+    (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