From 035e570931283c8bd4d8a00ca88fed373f746d51 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 7 Oct 2003 04:13:57 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-disuse-server-flag-mailbox-regexp): Abolish. (elmo-folder-use-flag-p): Always return t. --- elmo/ChangeLog | 2 ++ elmo/elmo-imap4.el | 7 +------ 2 files changed, 3 insertions(+), 6 deletions(-) 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 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) -- 1.7.10.4