From: kaoru <kaoru>
Date: Mon, 30 Dec 2002 00:49:19 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send-mail-with-smtp): Fix logic
X-Git-Tag: wl-2_10_1pre~84
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5e43d21b451dc3ed2ad0085d9e85e2bd4312f9ae;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-send-mail-with-smtp): Fix logic
for elmo-remove-passwd.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c1c35a2..4b19a79 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-30  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-draft.el (wl-draft-send-mail-with-smtp): Fix logic
+	for elmo-remove-passwd.
+
 2002-12-24  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-e21.el (toplevel): Do not set wl-folder-mode-map.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 4cb9fae..88ed8fd 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1084,7 +1084,7 @@ non-nil."
 		     (wl-draft-write-sendlog 'failed 'smtp smtp-server
 					     recipients id)
 		     (if (and (eq (car err) 'smtp-response-error)
-			      (/= (nth 1 err) 334))
+			      (= (nth 1 err) 535))
 			 (elmo-remove-passwd
 			  (wl-smtp-password-key
 			   smtp-sasl-user-name