(message-send): Make sure error is signalled if no

send method is specified.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 198a201..ab3b675 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-29  Simon Josefsson  <simon@josefsson.org>
+
+       * message.el (message-send): Make sure error is signalled if no
+       send method is specified.
+
 2000-09-29  Florian Weimer  <fw@deneb.enyo.de>
 
        * qp.el (quoted-printable-encode-region): Wrap with

diff --git a/lisp/message.el b/lisp/message.el
index ff50ef5..6de2fa0 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2108,15 +2108,15 @@ It should typically alter the sending method in some way or other."
        elem sent)
     (while (and success
                (setq elem (pop alist)))
-      (when (or (not (funcall (cadr elem)))
-               (and (or (not (memq (car elem)
-                                   message-sent-message-via))
-                        (y-or-n-p
-                         (format
-                          "Already sent message via %s; resend? "
-                          (car elem))))
-                    (setq success (funcall (caddr elem) arg))))
-       (setq sent t)))
+      (when (funcall (cadr elem))
+       (when (and (or (not (memq (car elem)
+                                 message-sent-message-via))
+                      (y-or-n-p
+                       (format
+                        "Already sent message via %s; resend? "
+                        (car elem))))
+                  (setq success (funcall (caddr elem) arg)))
+         (setq sent t))))
     (unless (or sent (not success))
       (error "No methods specified to send by"))
     (when (and success sent)