From: teranisi <teranisi>
Date: Mon, 12 Mar 2001 09:48:16 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-move-spec-plugged-alist,
X-Git-Tag: wl-2_6-root~52
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=00653b99e07072b24bc2fc6bc5acd46addeb0587;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-move-spec-plugged-alist,
 wl-summary-move-spec-unplugged-alist): Define without backquote.
---

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  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-move-spec-plugged-alist,
+	wl-summary-move-spec-unplugged-alist): Define without backquote.
+
 2000-03-11  Kenichi OKADA  <okada@opaopa.org>
 
 	* 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