From 2767944a522f02fead306fd43cab5d4ce4d820d2 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 21 Sep 2001 03:16:08 +0000 Subject: [PATCH] * wl-addrmgr.el (wl-addrmgr-method-list): New variable. (wl-addrmgr-method-list): Abolished. (wl-addrmgr-change-method): Follow above change. --- wl/ChangeLog | 4 ++++ wl/wl-addrmgr.el | 17 +++++------------ 2 files changed, 9 insertions(+), 12 deletions(-) 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 + * 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 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)) -- 1.7.10.4