Undo changes

diff --git a/ChangeLog b/ChangeLog
index e86d379..4b4003f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,8 @@
 2000-11-26  Tatsuya Ichikawa  <ichikawa@eitc.epson.com>
+       
+       * lisp/message.el: Undo changes.
+
+2000-11-26  Tatsuya Ichikawa  <ichikawa@eitc.epson.com>
 
        * 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 (file)
--- 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)