Update flags/read marks even if \* isn't part of the permanent marks.

[gnus] / lisp / gnus.el

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 658bf66..8b43045 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3937,7 +3937,9 @@ GROUP can also be an INFO structure."
                    (not (eq (caar old-params) name)))
            (setq new-params (append new-params (list (car old-params)))))
          (setq old-params (cdr old-params)))
-       (gnus-group-set-info new-params (gnus-info-group info) 'params)))))
+       (if (listp group)
+           (gnus-info-set-params info new-params t)
+         (gnus-group-set-info new-params (gnus-info-group info) 'params))))))
 
 (defun gnus-group-remove-parameter (group name)
   "Remove parameter NAME from GROUP.