From f2c4ebb96e45e74416e18cdc74a5223f27873692 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sun, 26 Nov 2000 09:52:06 +0000 Subject: [PATCH] Undo changes --- ChangeLog | 4 ++++ lisp/message.el | 12 +++--------- 2 files changed, 7 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index e86d379..4b4003f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,4 +1,8 @@ 2000-11-26 Tatsuya Ichikawa + + * lisp/message.el: Undo changes. + +2000-11-26 Tatsuya Ichikawa * lisp/message.el (message-send-mail-with-smtp): Change error handling 'cause delete-process will return nil on most platform, diff --git a/lisp/message.el b/lisp/message.el index ee420ab..e10caf1 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3070,19 +3070,13 @@ to find out how to use this." (run-hooks 'message-send-mail-hook) (if recipients (let ((result (static-if (fboundp 'smtp-send-buffer) - (condition-case error - (progn - (smtp-send-buffer user-mail-address recipients - (current-buffer)) - t) - (error - (format "%d %s" - (car (cdr error)) (cdr (cdr error))))) + (smtp-send-buffer user-mail-address recipients + (current-buffer)) (smtp-via-smtp user-mail-address recipients (current-buffer))))) (unless (eq result t) - (error "Sending failed; %s" result))) + (error "Sending failed; " result))) (error "Sending failed; no recipients")))) (defsubst message-maybe-split-and-send-news (method) -- 1.7.10.4