Check error.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d5ddc29..bf6a7b4 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-16  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-draft.el (wl-draft-send-mail-with-smtp): Check error.
+
 2002-02-15  Daiki Ueno  <ueno@unixuser.org>
 
        * wl-demo.el (wl-demo-insert-image): Don't touch the specifiers

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 9168336..965960d 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1002,7 +1002,8 @@ non-nil."
                    (error
                     (wl-draft-write-sendlog 'failed 'smtp smtp-server
                                             recipients id)
-                    (if (/= (nth 1 err) 334)
+                    (if (and (eq (car err) 'smtp-response-error)
+                             (/= (nth 1 err) 334))
                         (elmo-remove-passwd
                          (wl-smtp-password-key
                           smtp-sasl-user-name