diff options
| -rw-r--r-- | lisp/gnus.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index a2c2f445ff0..c72e407c2e7 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el | |||
| @@ -6502,7 +6502,7 @@ Unscored articles will be counted as having a score of zero." | |||
| 6502 | "Prepare summary buffer from THREADS and indentation LEVEL. | 6502 | "Prepare summary buffer from THREADS and indentation LEVEL. |
| 6503 | THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])' | 6503 | THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])' |
| 6504 | or a straight list of headers." | 6504 | or a straight list of headers." |
| 6505 | (message "Generating summary...") | 6505 | (gnus-message 5 "Generating summary...") |
| 6506 | (let ((level 0) | 6506 | (let ((level 0) |
| 6507 | thread header number subject stack state gnus-tmp-gathered) | 6507 | thread header number subject stack state gnus-tmp-gathered) |
| 6508 | (if (vectorp (car threads)) | 6508 | (if (vectorp (car threads)) |
| @@ -6628,7 +6628,7 @@ or a straight list of headers." | |||
| 6628 | (setq stack (cons (cons (max 0 level) (nthcdr 1 thread)) stack))) | 6628 | (setq stack (cons (cons (max 0 level) (nthcdr 1 thread)) stack))) |
| 6629 | (setq level (1+ level)) | 6629 | (setq level (1+ level)) |
| 6630 | (setq threads (cdr (car thread)))))) | 6630 | (setq threads (cdr (car thread)))))) |
| 6631 | (message "Generating summary...done")) | 6631 | (gnus-message 5 "Generating summary...done")) |
| 6632 | 6632 | ||
| 6633 | 6633 | ||
| 6634 | 6634 | ||