From: teranisi <teranisi>
Date: Tue, 7 Oct 2003 04:13:57 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-disuse-server-flag-mailbox-regexp): Abolish.
X-Git-Tag: wl-2_11_19~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=035e570931283c8bd4d8a00ca88fed373f746d51;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-disuse-server-flag-mailbox-regexp): Abolish.
(elmo-folder-use-flag-p): Always return t.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7fbbcfe..b3713ad 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -4,6 +4,8 @@
 	`permanentflag'	instead of `flags'.
 	(elmo-folder-open): Ditto.
 	(elmo-imap4-set-flag): Treat \Deleted flag as an exception.
+	(elmo-imap4-disuse-server-flag-mailbox-regexp): Abolish.
+	(elmo-folder-use-flag-p): Always return t.
 
 2003-10-06  Yuuichi Teranishi  <teranisi@gohome.org>
 
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 78ef4b8..08c2f38 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -51,10 +51,6 @@
 ;;; Code:
 (eval-when-compile (require 'cl))
 
-(defvar elmo-imap4-disuse-server-flag-mailbox-regexp "^#mh" ; UW imapd
-  "Regexp to match IMAP4 mailbox names whose message flags on server should be ignored.
-\(Except `\\Deleted' flag\).")
-
 (defvar elmo-imap4-overview-fetch-chop-length 200
   "*Number of overviews to fetch in one request.")
 
@@ -1912,8 +1908,7 @@ Return nil if no complete line has arrived."
   (elmo-imap4-folder-list-flagged folder 'answered))
 
 (luna-define-method elmo-folder-use-flag-p ((folder elmo-imap4-folder))
-  (not (string-match elmo-imap4-disuse-server-flag-mailbox-regexp
-		     (elmo-imap4-folder-mailbox-internal folder))))
+  t)
 
 (luna-define-method elmo-folder-list-subfolders ((folder elmo-imap4-folder)
 						 &optional one-level)