From: okada <okada>
Date: Sat, 16 Feb 2002 12:52:09 +0000 (+0000)
Subject: Check error.
X-Git-Tag: wl-2_9_7~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5c1eebd3c1ab3423cd2c1749be5af1a128905783;p=elisp%2Fwanderlust.git

Check error.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d5ddc29..bf6a7b4 100644
--- 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
--- 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