From 00653b99e07072b24bc2fc6bc5acd46addeb0587 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 12 Mar 2001 09:48:16 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-move-spec-plugged-alist, wl-summary-move-spec-unplugged-alist): Define without backquote. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 38 ++++++++++++++++++++------------------ 2 files changed, 25 insertions(+), 18 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 72552c0..b7013c9 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-03-12 Yuuichi Teranishi + + * wl-summary.el (wl-summary-move-spec-plugged-alist, + wl-summary-move-spec-unplugged-alist): Define without backquote. + 2000-03-11 Kenichi OKADA * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache' diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 37d896d..f078180 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4489,26 +4489,28 @@ If ARG, exit virtual folder." (elmo-date-get-week year month mday)))) (defvar wl-summary-move-spec-plugged-alist - (` ((new . ((t . nil) - (p . (, wl-summary-new-mark)) - (p . (, (wl-regexp-opt - (list wl-summary-unread-uncached-mark - wl-summary-unread-cached-mark)))) - (p . (, (regexp-quote wl-summary-important-mark))))) - (unread . ((t . nil) - (p . (, (wl-regexp-opt - (list wl-summary-new-mark - wl-summary-unread-uncached-mark - wl-summary-unread-cached-mark)))) - (p . (, (regexp-quote wl-summary-important-mark)))))))) + (list (cons 'new (list (cons 't nil) + (cons 'p wl-summary-new-mark) + (cons 'p (wl-regexp-opt + (list wl-summary-unread-uncached-mark + wl-summary-unread-cached-mark))) + (cons 'p (regexp-quote wl-summary-important-mark)))) + (cons 'unread (list (cons 't nil) + (cons 'p (wl-regexp-opt + (list wl-summary-new-mark + wl-summary-unread-uncached-mark + wl-summary-unread-cached-mark))) + (cons 'p (regexp-quote + wl-summary-important-mark)))))) (defvar wl-summary-move-spec-unplugged-alist - (` ((new . ((t . nil) - (p . (, wl-summary-unread-cached-mark)) - (p . (, (regexp-quote wl-summary-important-mark))))) - (unread . ((t . nil) - (p . (, wl-summary-unread-cached-mark)) - (p . (, (regexp-quote wl-summary-important-mark)))))))) + (list (cons 'new (list (cons 't nil) + (cons 'p wl-summary-unread-cached-mark) + (cons 'p (regexp-quote wl-summary-important-mark)))) + (cons 'unread (list (cons 't nil) + (cons 'p wl-summary-unread-cached-mark) + (cons 'p (regexp-quote + wl-summary-important-mark)))))) (defsubst wl-summary-next-message (num direction hereto) (let ((cur-spec (cdr (assq wl-summary-move-order -- 1.7.10.4