X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=smtpmail.el;h=8582394d90408bd7a20965edb04d1422ffd66329;hb=refs%2Ftags%2Fdeisui-1_14_0-2000-12-14;hp=74638aaa3039e2f3cc234a4264391dcbd13b1f42;hpb=09986cc02a99ec95288aef3f2e890426ae252b54;p=elisp%2Fflim.git

diff --git a/smtpmail.el b/smtpmail.el
index 74638aa..8582394 100644
--- a/smtpmail.el
+++ b/smtpmail.el
@@ -226,10 +226,9 @@ This is relative to `smtpmail-queue-dir'.")
 	  ; Send or queue
 	  (if (not smtpmail-queue-mail)
 	      (if smtpmail-recipient-address-list
-		  (if (not (smtp-via-smtp user-mail-address
-					  smtpmail-recipient-address-list
-					  tembuf))
-		      (error "Sending failed; SMTP protocol error"))
+		  (smtp-send-buffer user-mail-address
+				    smtpmail-recipient-address-list
+				    tembuf)
 		(error "Sending failed; no recipients"))
 	    (let* ((file-data (convert-standard-filename
 			       (concat
@@ -284,9 +283,8 @@ This is relative to `smtpmail-queue-dir'.")
 	(load file-msg)
 	(setq tembuf (find-file-noselect-as-binary file-msg))
 	(if smtpmail-recipient-address-list
-	    (if (not (smtp-via-smtp user-mail-address
-				    smtpmail-recipient-address-list tembuf))
-		(error "Sending failed; SMTP protocol error"))
+	    (smtp-send-buffer user-mail-address
+			      smtpmail-recipient-address-list tembuf)
 	  (error "Sending failed; no recipients"))  
 	(delete-file file-msg)
 	(delete-file (concat file-msg ".el"))