* smtp.el (smtp-via-smtp): Comment out vain commands.

ONEX,VERB,XUSR

diff --git a/ChangeLog b/ChangeLog
index 19fe777..b3d01f6 100644 (file)
--- 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 (file)
--- 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