wl-draft.el (toplevel): Delete defvar for sasl-*.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7851528..5b83e08 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2000-11-19  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-draft.el (toplevel): Delete defvar for sasl-*.
+
+2000-11-19  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-draft.el (wl-smtp-extension-bind): Use `smtp-sasl-properties'
        instead of `smtp-sasl-user-realm'.
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 263bae2..7700c5e 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -41,9 +41,6 @@
 (defvar x-face-add-x-face-version-header)
 (defvar mail-reply-buffer)
 (defvar mail-from-style)
-;(defvar smtp-sasl-mechanisms)
-;(defvar smtp-sasl-user-name)
-;(defvar smtp-use-starttls)
 
 (eval-when-compile
   (require 'elmo-pop3)
@@ -95,53 +92,6 @@
 (make-variable-buffer-local 'wl-draft-fcc-list)
 (make-variable-buffer-local 'wl-draft-reply-buffer)
 
-;;; SMTP binding by Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
-;;;(defvar wl-smtp-features
-;;;  '(((smtp-authenticate-type
-;;;      (if wl-smtp-authenticate-type
-;;;      (intern (downcase (format "%s" wl-smtp-authenticate-type)))))
-;;;     ((smtp-authenticate-user wl-smtp-posting-user)
-;;;      ((smtp-authenticate-passphrase
-;;;    (elmo-get-passwd
-;;;     (format "%s@%s"
-;;;             smtp-authenticate-user
-;;;             smtp-server))))))
-;;;    (smtp-connection-type))
-;;;  "Additional SMTP features.")
-
-;;;(eval-when-compile
-;;;  (defun wl-smtp-parse-extension (exts parents)
-;;;    (let (bindings binding feature)
-;;;      (dolist (ext exts)
-;;;    (setq feature (if (listp (car ext)) (caar ext) (car ext))
-;;;          binding
-;;;          (` ((, feature)
-;;;              (or (, (if (listp (car ext))
-;;;                         (cadar ext)
-;;;                       (let ((wl-feature
-;;;                              (intern
-;;;                               (concat "wl-" (symbol-name feature)))))
-;;;                         (if (boundp wl-feature)
-;;;                             wl-feature))))
-;;;                  (and (boundp '(, feature)) (, feature))))))
-;;;    (when parents
-;;;      (setcdr binding (list (append '(and) parents (cdr binding)))))
-;;;    (setq bindings
-;;;          (nconc bindings (list binding)
-;;;                 (wl-smtp-parse-extension
-;;;                  (cdr ext) (cons feature parents)))))
-;;;      bindings)))
-
-;;;(defmacro wl-smtp-extension-bind (&rest body)
-;;;  "Return a `let' form that binds all variables of SMTP extension.
-;;;After this is done, BODY will be executed in the scope
-;;;of the `let' form.
-;;;
-;;;The variables bound and their default values are described by
-;;;the `wl-smtp-features' variable."
-;;;  (` (let* (, (wl-smtp-parse-extension wl-smtp-features nil))
-;;;       (,@ body))))
-
 (defmacro wl-smtp-extension-bind (&rest body)
   (` (let* ((smtp-sasl-mechanisms
             (if wl-smtp-authenticate-type