From: ichikawa <ichikawa>
Date: Sun, 26 Nov 2000 09:52:06 +0000 (+0000)
Subject: Undo changes
X-Git-Tag: t-gnus-6_14_5-08~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f2c4ebb96e45e74416e18cdc74a5223f27873692;p=elisp%2Fgnus.git-

Undo changes
---

diff --git a/ChangeLog b/ChangeLog
index e86d379..4b4003f 100644
--- 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
--- 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)