From: kaoru <kaoru>
Date: Fri, 19 May 2000 13:37:47 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-always-sticky-folder-list): `t' means all
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e01eb1f32cb9b007fdf31cf2b97347295816932f;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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 '("^/.*$")