diff options
| author | Lars Ingebrigtsen | 2016-02-07 17:56:59 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-07 17:56:59 +1100 |
| commit | cc419fb599ac4d74ffc00e5c4c26e75009ac4911 (patch) | |
| tree | 2a51d482f14156ceadb1790534596b1e9e8cf932 | |
| parent | 51c77a27f1b5213ca190f25cd68135e3b5bb2c20 (diff) | |
| download | emacs-cc419fb599ac4d74ffc00e5c4c26e75009ac4911.tar.gz emacs-cc419fb599ac4d74ffc00e5c4c26e75009ac4911.zip | |
Don't inloop gnus-uu-mark-thread on the last thread
* lisp/gnus/gnus-uu.el (gnus-uu-mark-thread): Don't infloop on the
final thread in the summary buffer (bug#16666).
| -rw-r--r-- | lisp/gnus/gnus-uu.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el index 83f817fd8e9..416567ed285 100644 --- a/lisp/gnus/gnus-uu.el +++ b/lisp/gnus/gnus-uu.el | |||
| @@ -641,9 +641,9 @@ When called interactively, prompt for REGEXP." | |||
| 641 | (interactive) | 641 | (interactive) |
| 642 | (gnus-save-hidden-threads | 642 | (gnus-save-hidden-threads |
| 643 | (let ((level (gnus-summary-thread-level))) | 643 | (let ((level (gnus-summary-thread-level))) |
| 644 | (while (and (gnus-summary-set-process-mark | 644 | (while (and (gnus-summary-set-process-mark (gnus-summary-article-number)) |
| 645 | (gnus-summary-article-number)) | ||
| 646 | (zerop (forward-line 1)) | 645 | (zerop (forward-line 1)) |
| 646 | (not (eobp)) | ||
| 647 | (> (gnus-summary-thread-level) level))))) | 647 | (> (gnus-summary-thread-level) level))))) |
| 648 | (gnus-summary-position-point)) | 648 | (gnus-summary-position-point)) |
| 649 | 649 | ||