From e01eb1f32cb9b007fdf31cf2b97347295816932f Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 19 May 2000 13:37:47 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 7 +++++++ wl/wl-summary.el | 5 +++-- wl/wl-vars.el | 4 +++- 3 files changed, 13 insertions(+), 3 deletions(-) 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 + + * 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 * 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 '("^/.*$") -- 1.7.10.4