From: okada <okada>
Date: Wed, 1 Dec 1999 16:25:18 +0000 (+0000)
Subject: * smtp.el (smtp-via-smtp): Comment out vain commands.
X-Git-Tag: slim-1_13_4~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aee4548f7265c8e17f894e3272f1248d5f90b55f;p=elisp%2Fflim.git

* smtp.el (smtp-via-smtp): Comment out vain commands.
ONEX,VERB,XUSR
---

diff --git a/ChangeLog b/ChangeLog
index 19fe777..b3d01f6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1999-12-02  Kenichi OKADA <okada@opaopa.org>
 
+	* smtp.el (smtp-via-smtp): Comment out vain commands.
+
+1999-12-02  Kenichi OKADA <okada@opaopa.org>
+
 	* scram-md5.el: New file.
 	* FLIM-ELS (flim-modules): Add `scram-md5'.
 
diff --git a/smtp.el b/smtp.el
index 6b6162a..2ed8cf2 100644
--- a/smtp.el
+++ b/smtp.el
@@ -206,37 +206,37 @@ don't define this value."
 			 (format "AUTH mechanism %s not available" auth)))))
 
 	    ;; ONEX --- One message transaction only (sendmail extension?)
-	    (if (or (memq 'onex extensions)
-		    (memq 'xone extensions))
-		(progn
-		  (smtp-send-command process "ONEX")
-		  (setq response (smtp-read-response process))
-		  (if (or (null (car response))
-			  (not (integerp (car response)))
-			  (>= (car response) 400))
-		      (throw 'done (car (cdr response))))))
+;;	    (if (or (memq 'onex extensions)
+;;		    (memq 'xone extensions))
+;;		(progn
+;;		  (smtp-send-command process "ONEX")
+;;		  (setq response (smtp-read-response process))
+;;		  (if (or (null (car response))
+;;			  (not (integerp (car response)))
+;;			  (>= (car response) 400))
+;;		      (throw 'done (car (cdr response))))))
 
 	    ;; VERB --- Verbose (sendmail extension?)
-	    (if (and smtp-debug-info
-		     (or (memq 'verb extensions)
-			 (memq 'xvrb extensions)))
-		(progn
-		  (smtp-send-command process "VERB")
-		  (setq response (smtp-read-response process))
-		  (if (or (null (car response))
-			  (not (integerp (car response)))
-			  (>= (car response) 400))
-		      (throw 'done (car (cdr response))))))
+;;	    (if (and smtp-debug-info
+;;		     (or (memq 'verb extensions)
+;;			 (memq 'xvrb extensions)))
+;;		(progn
+;;		  (smtp-send-command process "VERB")
+;;		  (setq response (smtp-read-response process))
+;;		  (if (or (null (car response))
+;;			  (not (integerp (car response)))
+;;			  (>= (car response) 400))
+;;		      (throw 'done (car (cdr response))))))
 
 	    ;; XUSR --- Initial (user) submission (sendmail extension?)
-	    (if (memq 'xusr extensions)
-		(progn
-		  (smtp-send-command process "XUSR")
-		  (setq response (smtp-read-response process))
-		  (if (or (null (car response))
-			  (not (integerp (car response)))
-			  (>= (car response) 400))
-		      (throw 'done (car (cdr response))))))
+;;	    (if (memq 'xusr extensions)
+;;		(progn
+;;		  (smtp-send-command process "XUSR")
+;;		  (setq response (smtp-read-response process))
+;;		  (if (or (null (car response))
+;;			  (not (integerp (car response)))
+;;			  (>= (car response) 400))
+;;		      (throw 'done (car (cdr response))))))
 
 	    ;; MAIL FROM:<sender>
 	    (smtp-send-command