From d9b71806204d830c8fc8eb2428226718df204505 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 1 Feb 2014 23:24:06 +0000 Subject: [PATCH] nnir.el (nnir-request-update-mark): Don't try to update the source group if we can't find it (bug#16611) --- lisp/ChangeLog | 5 +++++ lisp/nnir.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e78a894f5..73a642883 100644 --- 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 + + * 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 * gnus-sum.el (gnus-summary-open-group-with-article): New command. diff --git a/lisp/nnir.el b/lisp/nnir.el index f95c0bb9e..d678517b2 100644 --- 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) -- 2.34.1