From: kaoru <kaoru>
Date: Sun, 17 Feb 2008 09:32:40 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-buffer-group-p): Use quote instead of backquote.
X-Git-Tag: wl-2_15_6-fixes~45
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b0edf63d5aaabd8dd1455724fe973d047f4e9610;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-buffer-group-p): Use quote instead of backquote.
(wl-folder-unread-regex, wl-folder-entity-exists-p)
(wl-folder-clear-entity-info)
(wl-folder-get-entity-info, wl-folder-set-entity-info)
(wl-folder-elmo-folder-cache-get)
(wl-folder-elmo-folder-cache-put): New backquote style.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 227cee9..aa474e2 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,13 @@
 2008-02-17  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-folder.el (wl-folder-buffer-group-p): Use quote instead of
+	backquote.
+	(wl-folder-unread-regex, wl-folder-entity-exists-p)
+	(wl-folder-clear-entity-info)
+	(wl-folder-get-entity-info, wl-folder-set-entity-info)
+	(wl-folder-elmo-folder-cache-get)
+	(wl-folder-elmo-folder-cache-put): New backquote style.
+
 	* wl-fldmgr.el (wl-fldmgr-get-entity-id): New backquote style.
 	(wl-fldmgr-assign-id): Ditto.
 	(wl-fldmgr-delete-line): Use quote instead of backquote.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 64c2b09..aa32365 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -225,13 +225,13 @@
    wl-folder-mode-menu-spec))
 
 (defmacro wl-folder-unread-regex (group)
-  (` (concat "^[ ]*.+:[0-9\\*-]+/[^0\\*][0-9]*/[0-9\\*-]+$"
-	     (if (, group)
-		 "\\|^[ ]*\\[[+-]\\]"
-	       ""))))
+  `(concat "^[ ]*.+:[0-9\\*-]+/[^0\\*][0-9]*/[0-9\\*-]+$"
+	   (if ,group
+	       "\\|^[ ]*\\[[+-]\\]"
+	     "")))
 
 (defmacro wl-folder-buffer-group-p ()
-  (` (get-text-property (point) 'wl-folder-is-group)))
+  '(get-text-property (point) 'wl-folder-is-group))
 
 (defun wl-folder-buffer-search-group (group)
   (let ((prev-point (point))
@@ -281,24 +281,23 @@
        (wl-folder-get-folder-name-by-id id))))
 
 (defmacro wl-folder-entity-exists-p (entity &optional hashtb)
-  (` (let ((sym (intern-soft (, entity)
-			     (or (, hashtb) wl-folder-entity-hashtb))))
-       (and sym (boundp sym)))))
+  `(let ((sym (intern-soft ,entity (or ,hashtb wl-folder-entity-hashtb))))
+     (and sym (boundp sym))))
 
 (defmacro wl-folder-clear-entity-info (entity &optional hashtb)
-  (` (elmo-clear-hash-val (, entity) (or (, hashtb) wl-folder-entity-hashtb))))
+  `(elmo-clear-hash-val ,entity (or ,hashtb wl-folder-entity-hashtb)))
 
 (defmacro wl-folder-get-entity-info (entity &optional hashtb)
-  (` (elmo-get-hash-val (, entity) (or (, hashtb) wl-folder-entity-hashtb))))
+  `(elmo-get-hash-val ,entity (or ,hashtb wl-folder-entity-hashtb)))
 
 (defmacro wl-folder-set-entity-info (entity value &optional hashtb)
-  (` (let* ((hashtb (or (, hashtb) wl-folder-entity-hashtb))
-	    (info (wl-folder-get-entity-info (, entity) hashtb)))
-       (elmo-set-hash-val (elmo-string (, entity))
-			  (if (< (length (, value)) 4)
-			      (append (, value) (list (nth 3 info)))
-			    (, value))
-			  hashtb))))
+  `(let* ((hashtb (or ,hashtb wl-folder-entity-hashtb))
+	  (info (wl-folder-get-entity-info ,entity hashtb)))
+     (elmo-set-hash-val (elmo-string ,entity)
+			(if (< (length ,value) 4)
+			    (append ,value (list (nth 3 info)))
+			  ,value)
+			hashtb)))
 
 (defun wl-folder-persistent-p (folder)
   (or (and (wl-folder-search-entity-by-name folder wl-folder-entity
@@ -321,14 +320,14 @@
 (defmacro wl-folder-elmo-folder-cache-get (name &optional hashtb)
   "Returns a elmo folder structure associated with NAME from HASHTB.
 Default HASHTB is `wl-folder-elmo-folder-hashtb'."
-  (` (elmo-get-hash-val (, name)
-			(or (, hashtb) wl-folder-elmo-folder-hashtb))))
+  `(elmo-get-hash-val ,name
+		      (or ,hashtb wl-folder-elmo-folder-hashtb)))
 
 (defmacro wl-folder-elmo-folder-cache-put (name folder &optional hashtb)
   "Get folder elmo folder structure on HASHTB for folder with NAME.
 Default HASHTB is `wl-folder-elmo-folder-hashtb'."
-  (` (elmo-set-hash-val (, name) (, folder)
-			(or (, hashtb) wl-folder-elmo-folder-hashtb))))
+  `(elmo-set-hash-val ,name ,folder
+		      (or ,hashtb wl-folder-elmo-folder-hashtb)))
 
 (defun wl-draft-get-folder ()
   "A function to obtain `opened' draft elmo folder structure."