More fixing of messages.

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 4541486..2863776 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -1170,6 +1170,7 @@ This command does not work if you use short group names."
             (not (nnfolder-server-opened server)))
     (nnfolder-open-server server))
   (unless nnfolder-marks-is-evil
+    (nnheader-message 8 "Updating marks for %s..." group)
     (nnfolder-open-marks group server)
     ;; Update info using `nnfolder-marks'.
     (mapcar (lambda (pred)
@@ -1222,7 +1223,7 @@ This command does not work if you use short group names."
                   (gnus-group-prefixed-name
                    group
                    (gnus-server-to-method (format "nnfolder:%s" server))))))
-       (nnheader-message 6 "Bootstrapping marks for %s..." group)
+       (nnheader-message 7 "Bootstrapping marks for %s..." group)
        (setq nnfolder-marks (gnus-info-marks info))
        (push (cons 'read (gnus-info-read info)) nnfolder-marks)
        (nnfolder-save-marks group server)))))

diff --git a/lisp/nnml.el b/lisp/nnml.el
index f0d7873..123216d 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -897,7 +897,7 @@ check twice.")
 (deffoo nnml-request-update-info (group info &optional server)
   (nnml-possibly-change-directory group server)
   (unless nnml-marks-is-evil
-    (nnheader-message 6 "Updating marks for %s..." group)
+    (nnheader-message 8 "Updating marks for %s..." group)
     (nnml-open-marks group server)
     ;; Update info using `nnml-marks'.
     (mapcar (lambda (pred)
@@ -950,7 +950,7 @@ check twice.")
                   (gnus-group-prefixed-name
                    group
                    (gnus-server-to-method (format "nnml:%s" server))))))
-       (nnheader-message 6 "Bootstrapping marks for %s..." group)
+       (nnheader-message 7 "Bootstrapping marks for %s..." group)
        (setq nnml-marks (gnus-info-marks info))
        (push (cons 'read (gnus-info-read info)) nnml-marks)
        (nnml-save-marks group server)))))