Mercurial > emacs

diff lisp/simple.el @ 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 b7611654bd5e
children 4d1085b02d64
line wrap: on
line diff
--- 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