* wl-fldmgr.el (wl-fldmgr-folders-header): Add more comment.

(wl-fldmgr-save-folders): Fix comment.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 59901cb..d4e1ce3 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2003-06-18  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * wl-fldmgr.el (wl-fldmgr-folders-header): Add more comment.
+       (wl-fldmgr-save-folders): Fix comment.
+
        * wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and
        write sendlog.
        (wl-draft-reply): List in r-list can contain function.

diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 993fb78..fbeb9b2 100644 (file)
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -51,6 +51,10 @@
 # Folder definition file
 # This file is generated automatically by %s.
 #
+#
+# If you edit this file by hand, be sure that comment lines
+# will be washed out by wl-fldmgr.
+#
 
 " (product-string-1 'wl-version t)))
 
@@ -1344,7 +1348,7 @@ return value is diffs '(-new -unread -all)."
     (wl-fldmgr-delete-disused-petname)
     (setq save-petname-entities
          (wl-fldmgr-insert-folders-buffer "" (nth 2 wl-folder-entity)))
-    (insert "\n# petname definition (group, folder in access group)\n")
+    (insert "\n# petname definition (access group, folder in access group)\n")
     (wl-fldmgr-insert-petname-buffer save-petname-entities)
     (insert "\n# end of file.\n")
     (if (and wl-fldmgr-make-backup