From: teranisi <teranisi>
Date: Thu, 6 Nov 2003 14:15:47 +0000 (+0000)
Subject: * elmo-vars.el (elmo-init-hook): New user option.
X-Git-Tag: wl-2_11_21~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3cf1da4c748fafcdd7757e6781aeef6d1e7f81ec;p=elisp%2Fwanderlust.git

* elmo-vars.el (elmo-init-hook): New user option.

* elmo.el (elmo-init): Run the elmo-init-hook.

* elmo-flag.el (elmo-global-mark-migrate): New function.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 42aeb1c..e8f8754 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,11 @@
+2003-11-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-vars.el (elmo-init-hook): New user option.
+
+	* elmo.el (elmo-init): Run the elmo-init-hook.
+
+	* elmo-flag.el (elmo-global-mark-migrate): New function.
+
 2003-11-06  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* modb-standard.el (elmo-msgdb-set-flag): Simplify;
diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el
index e3c3649..c1bb436 100644
--- a/elmo/elmo-flag.el
+++ b/elmo/elmo-flag.el
@@ -372,6 +372,16 @@ the message is not flagged in any folder."
 (defvar elmo-global-mark-filename "global-mark"
   "Obsolete variable. (Just for migration)")
 
+(defun elmo-global-mark-migrate ()
+  "Migrate from 'mark to 'flag. For automatic migration."
+  (elmo-global-flag-initialize)
+  (when (and (file-exists-p (expand-file-name elmo-global-mark-filename
+					      elmo-msgdb-directory))
+	     (elmo-global-flag-p 'important)
+	     (not (file-exists-p (elmo-folder-expand-msgdb-path
+				  (elmo-flag-get-folder 'important)))))
+    (elmo-global-mark-upgrade)))
+
 (defun elmo-global-mark-upgrade ()
   "Upgrade old `global-mark' structure."
   (interactive)
diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index 3d98591..c405355 100644
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -75,6 +75,11 @@
   :group 'elmo
   :group 'elmo-setting)
 
+(defcustom elmo-init-hook '(elmo-global-mark-migrate)
+  "*A hook called when elmo is initialized."
+  :type 'hook
+  :group 'elmo)
+
 (defvar elmo-msgdb-file-header-chop-length 2048
   "*Number of bytes to get header in one reading from file.")
 
diff --git a/elmo/elmo.el b/elmo/elmo.el
index c76fdd5..70d1cc9 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1597,7 +1597,8 @@ Return a hashtable for newsgroups."
   (elmo-crosspost-message-alist-load)
   (elmo-resque-obsolete-variables)
   (elmo-global-flag-initialize)
-  (elmo-dop-queue-load))
+  (elmo-dop-queue-load)
+  (run-hooks 'elmo-init-hook))
 
 (defun elmo-quit ()
   "Quit and cleanup ELMO."