* gnus-agent.el (gnus-agent-synchronize-group-flags): When

	necessary, pass full group name to gnus-request-set-marks.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b85224..7ce36e2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-01  Kevin Greiner  <kgreiner@compsol.cc>
+
+       * gnus-agent.el (gnus-agent-synchronize-group-flags): When
+       necessary, pass full group name to gnus-request-set-marks.
+       
 2004-10-01  Simon Josefsson  <jas@extundo.com>
 
        * mailcap.el (mailcap-mime-data): Add pdf.  Remove non-free

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 7edecc3..104a418 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1209,9 +1209,16 @@ This can be added to `gnus-select-article-hook' or
 (defun gnus-agent-synchronize-group-flags (group actions server)
 "Update a plugged group by performing the indicated actions."
   (let* ((gnus-command-method (gnus-server-to-method server))
-        (info (or (gnus-get-info group)
-                  (gnus-get-info (gnus-group-full-name 
-                                  group gnus-command-method)))))
+        (info
+         ;; This initializer is required as gnus-request-set-mark
+         ;; calls gnus-group-real-name to strip off the host name
+         ;; before calling the backend.  Now that the backend is
+         ;; trying to call gnus-request-set-mark, I have to
+         ;; reconstruct the original group name.
+         (or (gnus-get-info group)
+             (gnus-get-info 
+              (setq group (gnus-group-full-name 
+                           group gnus-command-method))))))
     (gnus-request-set-mark group actions)
 
     (when info