* gnus-agent.el (gnus-agent-synchronize-group-flags): Fixed typo in preceeding check-in.
authorKevin Greiner <kevin.greiner@compsol.cc>
Fri, 1 Oct 2004 20:40:28 +0000 (20:40 +0000)
committerKevin Greiner <kevin.greiner@compsol.cc>
Fri, 1 Oct 2004 20:40:28 +0000 (20:40 +0000)
lisp/gnus-agent.el

index 9d48b59..e0f628a 100644 (file)
@@ -1241,7 +1241,7 @@ This can be added to `gnus-select-article-hook' or
                  ((memq mark '(tick))
                   (let ((info-marks (assoc mark (gnus-info-marks info))))
                     (unless info-marks
-                      (gnus-info-marks info (cons (setq info-marks (list mark)) (gnus-info-marks info))))
+                      (gnus-info-set-marks info (cons (setq info-marks (list mark)) (gnus-info-marks info))))
                     (setcdr info-marks (funcall (if (eq what 'add)
                                  'gnus-range-add
                                'gnus-remove-from-range)