From 28c628941a2fdbe6583d9e31c498e2c563944bc3 Mon Sep 17 00:00:00 2001
From: okada <okada>
Date: Sun, 19 Nov 2000 17:16:25 +0000
Subject: [PATCH] wl-draft.el (toplevel): Delete defvar for sasl-*.

---
 wl/ChangeLog   |    4 ++++
 wl/wl-draft.el |   50 --------------------------------------------------
 2 files changed, 4 insertions(+), 50 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7851528..5b83e08 100644
--- 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
--- 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
-- 
1.7.10.4