nnir.el (nnir-request-update-mark): Don't try to update the source group if we can...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e78a894..73a6428 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -30,6 +30,11 @@
        (message-forward-included-headers): New variable.
        (message-remove-ignored-headers): Use it.
 
+2014-02-01  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * nnir.el (nnir-request-update-mark): Don't try to update the source
+       group if we can't find it (bug#16611).
+
 2014-01-31  Dave Abrahams  <dave@boostpro.com>
 
        * gnus-sum.el (gnus-summary-open-group-with-article): New command.

diff --git a/lisp/nnir.el b/lisp/nnir.el
index f95c0bb..d678517 100644 (file)
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -830,7 +830,8 @@ skips all prompting."
 (deffoo nnir-request-update-mark (group article mark)
   (let ((artgroup (nnir-article-group article))
        (artnumber (nnir-article-number article)))
-    (gnus-request-update-mark artgroup artnumber mark)))
+    (when (and artgroup artnumber)
+      (gnus-request-update-mark artgroup artnumber mark))))
 
 (deffoo nnir-request-set-mark (group actions &optional server)
   (nnir-possibly-change-group group server)