From 776af4b5b9369b438c2caf93ce80eaec026fe1c5 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 20 Nov 2000 01:47:16 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-send-mail-with-smtp): Use `smtp-send-buffer' instead of `smtp-via-smtp'. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 5b83e08..6947970 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2000-11-20 Yuuichi Teranishi + + * wl-draft.el (wl-draft-send-mail-with-smtp): Use `smtp-send-buffer' + instead of `smtp-via-smtp'. + 2000-11-19 Kenichi OKADA * wl-draft.el (toplevel): Delete defvar for sasl-*. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 209972c..8e32b6b 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -956,12 +956,12 @@ non-nil." (as-binary-process (when recipients (wl-smtp-extension-bind - (let ((err (smtp-via-smtp sender recipients - (current-buffer)))) - (when (not (eq err t)) - (wl-draft-write-sendlog 'failed 'smtp smtp-server - recipients id) - (error "Sending failed; SMTP protocol error:%s" err)))) + (condition-case err + (smtp-send-buffer sender recipients (current-buffer)) + (error + (wl-draft-write-sendlog 'failed 'smtp smtp-server + recipients id) + (signal (car err) (cdr err))))) (wl-draft-set-sent-message 'mail 'sent) (wl-draft-write-sendlog 'ok 'smtp smtp-server recipients id))))) -- 1.7.10.4