* 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 (file)
--- 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 (file)
--- 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)))