From 35c5bbbad00618df4d4d738bbd6b6ea9023922eb Mon Sep 17 00:00:00 2001 From: Andrew Cohen Date: Sun, 14 Apr 2013 22:16:44 +0000 Subject: [PATCH] lisp/gnus/nnir.el (nnir-request-set-mark): Make sure we are in the right group --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/nnir.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f15ed7e707c..cc7897accb6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-04-14 Andrew Cohen + + * nnir.el (nnir-request-set-mark): Make sure we are in the right + group. + 2013-04-12 Katsumi Yamaoka * 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 5d244a019cb..2fa6b600ac1 100644 --- 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) -- 2.39.2