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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7394e66..de38684 100644 (file)
--- 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 (file)
--- 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)))