From: teranisi <teranisi>
Date: Thu, 6 Nov 2003 14:34:42 +0000 (+0000)
Subject: * elmo-internal.el (elmo-internal-obsolete-folder-list): New variable.
X-Git-Tag: wl-2_11_21~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4026e4edffdadff74d5f0eeb01e3d6bc927591bb;p=elisp%2Fwanderlust.git

* elmo-internal.el (elmo-internal-obsolete-folder-list): New variable.
(elmo-folder-initialize): Raise a warning when obsolete folder is used.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e8f8754..722e7b6 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2003-11-06  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-internal.el (elmo-internal-obsolete-folder-list): New variable.
+	(elmo-folder-initialize): Raise a warning when obsolete folder is used.
+
 	* elmo-vars.el (elmo-init-hook): New user option.
 
 	* elmo.el (elmo-init): Run the elmo-init-hook.
diff --git a/elmo/elmo-internal.el b/elmo/elmo-internal.el
index feb3be1..4de1308 100644
--- a/elmo/elmo-internal.el
+++ b/elmo/elmo-internal.el
@@ -33,13 +33,19 @@
 ;;; ELMO internal folder
 (luna-define-class elmo-internal-folder (elmo-folder) ())
 
+(defvar elmo-internal-folder-list '(flag cache sendlog))
+(defvar elmo-internal-obsolete-folder-list '((mark flag)))
+
 (luna-define-method elmo-folder-initialize ((folder
 					     elmo-internal-folder)
 					    name)
+  (when (assq (intern name) elmo-internal-obsolete-folder-list)
+    (elmo-warning
+     "Folder '%s is now obsolete. Use '%s instead."
+     name
+     (cadr (assq (intern name) elmo-internal-obsolete-folder-list))))
   (elmo-internal-folder-initialize folder name))
 
-(defvar elmo-internal-folder-list '(flag cache sendlog))
-
 (defun elmo-internal-folder-initialize (folder name)
   (let ((fsyms elmo-internal-folder-list)
 	fname class sym)