From: teranisi <teranisi>
Date: Thu, 16 Oct 2003 12:43:54 +0000 (+0000)
Subject: * wl-util.el (wl-get-assoc-list-value): Fixed last change.
X-Git-Tag: wl-2_11_20~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f7bf81b950f44f6550892065e5560b5e0fcd34a3;p=elisp%2Fwanderlust.git

* wl-util.el (wl-get-assoc-list-value): Fixed last change.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7394e66..de38684 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-util.el (wl-get-assoc-list-value): Fixed last change.
+
 2003-10-16  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-thread-saved-entity-hashtb-internal): New
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 19885ae..ba79ad0 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -274,7 +274,7 @@ even when invalid character is contained."
 		     (setq value (append value (list (cdr pair)))))
 		    ((eq match 'all-list)
 		     (setq value (append value (cdr pair))))
-		    ((not match)
+		    ((or (not match) (eq match 'function))
 		     (throw 'found (cdr pair))))))
 	(setq alist (cdr alist)))
       value)))