From: Kevin Greiner Date: Fri, 1 Oct 2004 03:35:30 +0000 (+0000) Subject: * gnus-agent.el (gnus-agent-synchronize-group-flags): When X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=fcd4e2e99e7c0976d6ebd0ed23b679a2d8896daa;p=gnus * 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 3b852248a..7ce36e2f1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-10-01 Kevin Greiner + + * gnus-agent.el (gnus-agent-synchronize-group-flags): When + necessary, pass full group name to gnus-request-set-marks. + 2004-10-01 Simon Josefsson * mailcap.el (mailcap-mime-data): Add pdf. Remove non-free diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 7edecc3ec..104a418fe 100644 --- 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