From: kaoru <kaoru>
Date: Thu, 26 Oct 2000 14:49:53 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-folders-header): Include version
X-Git-Tag: wl-2_4-root~70
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f37e2418d3271c3bb953a517fa66299afb28e4b1;p=elisp%2Fwanderlust.git

* wl-fldmgr.el (wl-fldmgr-folders-header): Include version
number.
(wl-fldmgr-save-folders): Don't use `format' when insert
`wl-fldmgr-folders-header'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 825a732..116ba43 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2000-10-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-fldmgr.el (wl-fldmgr-folders-header): Include version
+	number.
+	(wl-fldmgr-save-folders): Don't use `format' when insert
+	`wl-fldmgr-folders-header'.
+
 2000-10-26  Katsumi Yamaoka    <yamaoka@jpl.org>
 
 	* wl-demo.el (wl-demo): Don't use `fancy-splash-insert'.
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index c871c78..5379a7c 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -46,12 +46,13 @@
 (defvar wl-fldmgr-group-insert-opened nil)
 
 (defconst wl-fldmgr-folders-header
-  "#
+  (format
+   "#
 # Folder definition file
 # This file is generated automatically by %s.
 #
 
-")
+" (wl-version t)))
 
 ;;; Initial setup
 
@@ -1309,7 +1310,7 @@ return value is diffs '(-new -unread -all)."
     (message "Saving folders...")
     (set-buffer tmp-buf)
     (erase-buffer)
-    (insert (format wl-fldmgr-folders-header (wl-version t)))
+    (insert wl-fldmgr-folders-header)
     (wl-fldmgr-delete-disused-petname)
     (setq save-petname-entities
 	  (wl-fldmgr-insert-folders-buffer "" (nth 2 wl-folder-entity)))