From: hmurata <hmurata>
Date: Sat, 1 Dec 2001 03:24:47 +0000 (+0000)
Subject: * wl-vars.el (wl-folder-process-duplicates-alist): Fixed
X-Git-Tag: wl-2_8-root~107
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d9bf68989c78aa3ab82ebe5ce720588fcb7ebcb1;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-folder-process-duplicates-alist): Fixed
typo (kill->hide).
(wl-message-buffer-prefetch-folder-type-list): Added elements
`mark' and `cache' instead of `internal'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a1f3830..4ca4a4a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2001-12-01  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-vars.el (wl-folder-process-duplicates-alist): Fixed
+	typo (kill->hide).
+	(wl-message-buffer-prefetch-folder-type-list): Added elements
+	`mark' and `cache' instead of `internal'.
+
 2001-11-30  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-acap.el (wl-acap-init): If initialization via ACAP is interrupted,
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 9a153ae..c75e873 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1639,7 +1639,7 @@ See also variable `wl-summary-next-no-unread-command'."
 (defcustom wl-message-buffer-prefetch-folder-type-list t
   "*All folder types that match this list prefetch next message,
 and reserved buffer cache."
-  :type '(choice (const :tag "all" t)
+  :type `(choice (const :tag "all" t)
 		 (const :tag "never" nil)
 		 (set (const localdir)
 		      (const localnews)
@@ -1650,7 +1650,8 @@ and reserved buffer cache."
 		      (const shimbun)
 		      (const nmz)
 		      (const archive)
-		      (const internal)))
+		      (const mark)
+		      (const cache)))
   :group 'wl-pref)
 
 (defcustom wl-message-buffer-prefetch-folder-list nil
@@ -1775,7 +1776,7 @@ TYPE is one of the symbols `hide' or `read'.
 `read' means mark as read duplicated messages.
 If TYPE is nil, do nothing for duplicated messages."
   :type '(repeat (cons (regexp :tag "Folder regexp")
-		       (choice (const :tag "Hide" kill)
+		       (choice (const :tag "Hide" hide)
 			       (const :tag "Mark as read" read))))
   :group 'wl-folder)