From: Lars Magne Ingebrigtsen Date: Thu, 1 Aug 2013 16:04:06 +0000 (+0200) Subject: Fix thread marking on dummy roots X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=74c3c92f78597749c0ff9a5911c0a42f83ba46dc;p=gnus Fix thread marking on dummy roots * gnus-uu.el (gnus-uu-mark-thread, gnus-uu-unmark-thread): Work with dummy roots, too. --- 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))