2001-08-27 Simon Josefsson <jas@extundo.com>

	* nnfolder.el (nnfolder-request-set-mark)
	(nnfolder-request-update-info): Don't open group.
	(nnfolder-open-marks): Fix message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d888c46..8450349 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-27  Simon Josefsson  <jas@extundo.com>
+
+       * nnfolder.el (nnfolder-request-set-mark) 
+       (nnfolder-request-update-info): Don't open group.
+       (nnfolder-open-marks): Fix message.
+
 2001-08-25  Simon Josefsson  <jas@extundo.com>
 
        * nnfolder.el (nnfolder-save-marks): Don't create directory named

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 9b0d176..4541486 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -1143,7 +1143,9 @@ This command does not work if you use short group names."
     (nnheader-insert-nov headers)))
 
 (deffoo nnfolder-request-set-mark (group actions &optional server)
-  (nnfolder-possibly-change-group group server)
+  (when (and server
+            (not (nnfolder-server-opened server)))
+    (nnfolder-open-server server))
   (unless nnfolder-marks-is-evil
     (nnfolder-open-marks group server)
     (dolist (action actions)
@@ -1163,7 +1165,10 @@ This command does not work if you use short group names."
   nil)
 
 (deffoo nnfolder-request-update-info (group info &optional server)
-  (nnfolder-possibly-change-group group server)
+  ;; Change servers.
+  (when (and server
+            (not (nnfolder-server-opened server)))
+    (nnfolder-open-server server))
   (unless nnfolder-marks-is-evil
     (nnfolder-open-marks group server)
     ;; Update info using `nnfolder-marks'.
@@ -1217,7 +1222,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 nnfolder marks...")
+       (nnheader-message 6 "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)))))