From f37e2418d3271c3bb953a517fa66299afb28e4b1 Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 26 Oct 2000 14:49:53 +0000 Subject: [PATCH] * wl-fldmgr.el (wl-fldmgr-folders-header): Include version number. (wl-fldmgr-save-folders): Don't use `format' when insert `wl-fldmgr-folders-header'. --- wl/ChangeLog | 7 +++++++ wl/wl-fldmgr.el | 7 ++++--- 2 files changed, 11 insertions(+), 3 deletions(-) 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 + + * 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 * 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))) -- 1.7.10.4