lisp/gnus/nnir.el (nnir-request-set-mark): Make sure we are in the right group

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f15ed7e707ca90337d4138cb0b5033f88953cc4d..cc7897accb639367c8706d92243e1570281f3345 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-14  Andrew Cohen  <cohen@bu.edu>
+
+       * nnir.el (nnir-request-set-mark): Make sure we are in the right
+       group.
+
 2013-04-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-msg.el (gnus-msg-mail): Make it avoid using posting styles

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 5d244a019cba31024f985a29c04417a9fb1fc658..2fa6b600ac14b110007a716f4cc78cecf66ca254 100644 (file)
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -837,6 +837,7 @@ skips all prompting."
     (gnus-request-update-mark artgroup artnumber mark)))
 
 (deffoo nnir-request-set-mark (group actions &optional server)
+  (nnir-possibly-change-group group server)
   (let (mlist)
     (dolist (action actions)
       (destructuring-bind (range action marks) action
@@ -853,7 +854,7 @@ skips all prompting."
 
 
 (deffoo nnir-request-update-info (group info &optional server)
-  (nnir-possibly-change-group group)
+  (nnir-possibly-change-group group server)
   ;; clear out all existing marks.
   (gnus-info-set-marks info nil)
   (gnus-info-set-read info nil)