* 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 (file)
--- 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 (file)
--- 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))