From 6f165b38765c0930ced5f0c50fea98ad95a4e604 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 1 Feb 2000 12:09:46 +0000 Subject: [PATCH] * smtp.el (smtp-via-smtp): Throw `done' instead of `smtp-error'; when evaluating unwind form, send QUIT command if the process is running. --- ChangeLog | 5 +++++ smtp.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index e345653..e98bc2b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-02-01 Daiki Ueno + + * smtp.el (smtp-via-smtp): Throw `done' instead of `smtp-error'; + when evaluating unwind form, send QUIT command if the process is running. + 2000-01-28 Kenichi OKADA * md5-el.el (md5-encode): If `md5-maximum-internal-length' is nil, diff --git a/smtp.el b/smtp.el index 0f9f52e..c24975c 100644 --- a/smtp.el +++ b/smtp.el @@ -207,7 +207,7 @@ don't define this value." (memq auth extensions) (setq method (nth 1 (assq auth smtp-authenticate-method-alist)))) (funcall method process) - (throw 'smtp-error + (throw 'done (format "AUTH mechanism %s not available" auth))))) ;; ONEX --- One message transaction only (sendmail extension?) @@ -311,7 +311,7 @@ don't define this value." t) (if (and process - (eq (process-status process) 'open)) + (memq (process-status process) '(open run))) (progn ;; QUIT (smtp-send-command process "QUIT") -- 1.7.10.4