From: teranisi <teranisi>
Date: Fri, 25 Mar 2005 14:45:12 +0000 (+0000)
Subject: Release 2.14.0.
X-Git-Tag: wl-2_14_0~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a92d9c60d49927eefa60b7e5599dcd7464d3a562;p=elisp%2Fwanderlust.git

Release 2.14.0.
---

diff --git a/ChangeLog b/ChangeLog
index 8de9390..18bb5de 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-03-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.14.0 - "Africa"
+
 2005-02-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* WL-MK (wl-news-search-regexp): Allow ".x" at the
diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 13b316a..abf50cb 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,12 @@
+2005-03-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.14.0 is released.
+
+2005-03-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-flag.el (elmo-global-flags-initialize): Check the
+	existence of the flag directory.
+
 2005-03-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-access.el (elmo-folder-initialize): Call
diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el
index 826cd7d..c7b6b1d 100644
--- a/elmo/elmo-flag.el
+++ b/elmo/elmo-flag.el
@@ -450,8 +450,12 @@ If optional IGNORE-PRESERVED is non-nil, preserved flags
 	    (append
 	     elmo-global-flags
 	     additional-flags
-	     (mapcar 'intern
-		     (delete ".." (delete "." (directory-files dir))))))))))
+	     (and (file-directory-p dir)
+		  (mapcar 'intern
+			  (elmo-list-delete
+			   '(".." ".")
+			   (directory-files dir))))))
+	   #'delq))))
 
 ;;; To migrate from global mark folder
 (defvar elmo-global-mark-filename "global-mark"
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 47805ed..fdacef7 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2005-03-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.14.0 is released.
+
 2005-03-21  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-rescan-message): Call
diff --git a/wl/wl-version.el b/wl/wl-version.el
index 85f233c..fd9cc94 100644
--- a/wl/wl-version.el
+++ b/wl/wl-version.el
@@ -46,7 +46,7 @@
    "Wanderlust" nil
    (eval-when-compile
      (product-version (product-find 'elmo-version))) ; equals to ELMO version.
-   "Africa-pre"))
+   "Africa"))
 
 (defconst wl-version-status nil
   "Wanderlust verstion status.  For override default rule.