From 74c3c92f78597749c0ff9a5911c0a42f83ba46dc Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 1 Aug 2013 18:04:06 +0200 Subject: [PATCH] Fix thread marking on dummy roots * gnus-uu.el (gnus-uu-mark-thread, gnus-uu-unmark-thread): Work with dummy roots, too. --- lisp/ChangeLog | 5 +++++ lisp/gnus-uu.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8d9d4567a..d7ed5bbd1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-08-01 Lars Magne Ingebrigtsen + + * gnus-uu.el (gnus-uu-mark-thread, gnus-uu-unmark-thread): Work with + dummy roots, too. + 2013-08-01 David Edmondson * mml2015.el (mml2015-epg-key-image-to-string): Protect against bugging diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el index c50dcde00..16ed4f178 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -640,7 +640,7 @@ When called interactively, prompt for REGEXP." (let ((level (gnus-summary-thread-level))) (while (and (gnus-summary-set-process-mark (gnus-summary-article-number)) - (zerop (gnus-summary-next-subject 1 nil t)) + (zerop (forward-line 1)) (> (gnus-summary-thread-level) level))))) (gnus-summary-position-point)) @@ -650,7 +650,7 @@ When called interactively, prompt for REGEXP." (let ((level (gnus-summary-thread-level))) (while (and (gnus-summary-remove-process-mark (gnus-summary-article-number)) - (zerop (gnus-summary-next-subject 1)) + (zerop (forward-line 1)) (> (gnus-summary-thread-level) level)))) (gnus-summary-position-point)) -- 2.25.1