* wl-vars.el (wl-summary-always-sticky-folder-list): `t' means all

folder always-sticky.
* wl-summary.el (wl-summary-always-sticky-folder-p): defun instead of
defmacro.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 728875b..e0dd512 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2000-05-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-vars.el (wl-summary-always-sticky-folder-list): `t' means all
+       folder always-sticky.
+       * wl-summary.el (wl-summary-always-sticky-folder-p): defun instead of
+       defmacro.
+
 2000-05-18  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-vars.el (wl-draft-add-references): New user option.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 36e6283..f649481 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2572,8 +2572,9 @@ If optional argument is non-nil, checking is omitted."
       (get-buffer (wl-summary-sticky-buffer-name fld))
     (not (string= wl-summary-buffer-name (buffer-name)))))
 
-(defmacro wl-summary-always-sticky-folder-p (fld)
-  (` (wl-string-match-member (, fld) wl-summary-always-sticky-folder-list)))
+(defun wl-summary-always-sticky-folder-p (fld)
+  (or (eq t wl-summary-always-sticky-folder-list)
+      (wl-string-match-member fld wl-summary-always-sticky-folder-list)))
 
 (defun wl-summary-stick (&optional force)
   "Make current summary buffer sticky."

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 927d860..23e6254 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1342,7 +1342,9 @@ e.x.
 (defcustom wl-summary-always-sticky-folder-list nil
   "All folders that match this list has sticky summary.
 Each elements are regexp of folder name."
-  :type '(repeat (regexp :tag "Folder Regexp"))
+  :type '(radio (const :tag "none" nil)
+               (const :tag "all" t)
+               (repeat (regexp :tag "Folder Regexp")))
   :group 'wl-pref)
 
 (defcustom wl-no-save-folder-list '("^/.*$")