From 5c1eebd3c1ab3423cd2c1749be5af1a128905783 Mon Sep 17 00:00:00 2001 From: okada Date: Sat, 16 Feb 2002 12:52:09 +0000 Subject: [PATCH] Check error. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * wl-draft.el (wl-draft-send-mail-with-smtp): Check error. + 2002-02-15 Daiki Ueno * 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 -- 1.7.10.4