From: teranisi <teranisi>
Date: Fri, 21 Sep 2001 03:16:08 +0000 (+0000)
Subject: * wl-addrmgr.el (wl-addrmgr-method-list): New variable.
X-Git-Tag: wl-2_7_5~55
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2767944a522f02fead306fd43cab5d4ce4d820d2;p=elisp%2Fwanderlust.git

* wl-addrmgr.el (wl-addrmgr-method-list): New variable.
(wl-addrmgr-method-list): Abolished.
(wl-addrmgr-change-method): Follow above change.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cac90d1..5e8f7fd 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2001-09-21  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-addrmgr.el (wl-addrmgr-method-list): New variable.
+	(wl-addrmgr-method-list): Abolished.
+	(wl-addrmgr-change-method): Follow above change.
+
 	* wl-draft.el (wl-draft): Call `wl-plugged-init'.
 
 2001-09-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el
index dcca399..bcc1557 100644
--- a/wl/wl-addrmgr.el
+++ b/wl/wl-addrmgr.el
@@ -87,20 +87,13 @@
   :group 'wl-addrmgr)
 
 (defcustom wl-addrmgr-default-method 'local
-  "Default access method for address entries.
-Defined by `wl-addrmgr-method-alist'."
+  "Default access method for address entries."
   :type 'symbol
   :group 'wl-addrmgr)
 
 (defvar wl-addrmgr-buffer-name "Address")
 (defvar wl-addrmgr-mode-map nil)
-
-(defvar wl-addrmgr-method-alist
-  '((local . (wl-addrmgr-local-list   ; list address entries
-	      wl-addrmgr-local-add    ; add address entry
-	      wl-addrmgr-local-edit   ; edit address entry
-	      wl-addrmgr-local-delete ; delete address entry
-	      ))))
+(defvar wl-addrmgr-method-list '(local))
 
 ;; buffer local variable.
 (defvar wl-addrmgr-draft-buffer nil)
@@ -454,9 +447,9 @@ Return nil if no ADDRESS exists."
 				 (completing-read
 				  (format "Method (%s): "
 					  (symbol-name wl-addrmgr-method))
-				  (mapcar (lambda (pair)
-					    (list (symbol-name (car pair))))
-					  wl-addrmgr-method-alist)
+				  (mapcar (lambda (method)
+					    (list (symbol-name method)))
+					  wl-addrmgr-method-list)
 				  nil t nil nil
 				  (symbol-name wl-addrmgr-method)))))
   (wl-addrmgr-redraw))