From 4026e4edffdadff74d5f0eeb01e3d6bc927591bb Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 6 Nov 2003 14:34:42 +0000 Subject: [PATCH] * elmo-internal.el (elmo-internal-obsolete-folder-list): New variable. (elmo-folder-initialize): Raise a warning when obsolete folder is used. --- elmo/ChangeLog | 3 +++ elmo/elmo-internal.el | 10 ++++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + * 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) -- 1.7.10.4