From: kaoru <kaoru>
Date: Sun, 5 Nov 2000 17:50:03 +0000 (+0000)
Subject: * wl-refile.el (wl-refile-guess-functions): Renamed from
X-Git-Tag: wl-2_4-root~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6b24c6af054bad2897349d51cc393ff7b6b23a9b;p=elisp%2Fwanderlust.git

* wl-refile.el (wl-refile-guess-functions): Renamed from
`wl-refile-guess-func-list'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b224bca..fa250e7 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-refile.el (wl-refile-guess-functions): Renamed from
+	`wl-refile-guess-func-list'.
+
 2000-11-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule):
diff --git a/wl/wl-refile.el b/wl/wl-refile.el
index 03dff24..78b086d 100644
--- a/wl/wl-refile.el
+++ b/wl/wl-refile.el
@@ -45,7 +45,7 @@
 (defvar wl-refile-alist-max-length 1000)
 
 (defun wl-refile-alist-setup ()
-  (let ((flist wl-refile-guess-func-list))
+  (let ((flist wl-refile-guess-functions))
     (while flist
       (cond
        ((eq (car flist) 'wl-refile-guess-by-history)
@@ -111,11 +111,11 @@
 	  (setq key from))
       (if (or wl-refile-msgid-alist
 	      (memq 'wl-refile-guess-by-msgid
-		    wl-refile-guess-func-list))
+		    wl-refile-guess-functions))
 	  (wl-refile-msgid-learn entity dst))
       (if (or wl-refile-subject-alist
 	      (memq 'wl-refile-guess-by-subject
-		    wl-refile-guess-func-list))
+		    wl-refile-guess-functions))
 	  (wl-refile-subject-learn entity dst)))
     (when key
       (if (setq hit (assoc key wl-refile-alist))
@@ -147,15 +147,18 @@
 ;;
 ;; refile guess
 ;;
-(defvar wl-refile-guess-func-list
+(defvar wl-refile-guess-functions
   '(wl-refile-guess-by-rule
     wl-refile-guess-by-msgid
     wl-refile-guess-by-subject
     wl-refile-guess-by-history)
   "*Functions in this list are used for guessing refile destination folder.")
 
+(defvar wl-refile-guess-func-list wl-refile-guess-functions)
+(make-obsolete-variable 'wl-refile-guess-func-list 'wl-refile-guess-functions)
+
 (defun wl-refile-guess (entity)
-  (let ((flist wl-refile-guess-func-list) guess)
+  (let ((flist wl-refile-guess-functions) guess)
     (while flist
       (if (setq guess (funcall (car flist) entity))
 	  (setq flist nil)