diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/gnus/gnus-start.el | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 8af66bde01a..961518b964f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -2,6 +2,7 @@ | |||
| 2 | 2 | ||
| 3 | * gnus-start.el (gnus-get-unread-articles): Don't bother with groups | 3 | * gnus-start.el (gnus-get-unread-articles): Don't bother with groups |
| 4 | that aren't going to be activated. | 4 | that aren't going to be activated. |
| 5 | (gnus-get-unread-articles): Fix up the last commit. | ||
| 5 | 6 | ||
| 6 | * gnus-html.el (gnus-article-html): Allow calling without specifying | 7 | * gnus-html.el (gnus-article-html): Allow calling without specifying |
| 7 | the handle. In that case, dissect the buffer first. | 8 | the handle. In that case, dissect the buffer first. |
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index e7e4dfd928e..3bdcb05dbe5 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el | |||
| @@ -1736,7 +1736,7 @@ If SCAN, request a scan of that group as well." | |||
| 1736 | type-cache)) | 1736 | type-cache)) |
| 1737 | ;; Only add groups that need updating. | 1737 | ;; Only add groups that need updating. |
| 1738 | (when (<= (gnus-info-level info) | 1738 | (when (<= (gnus-info-level info) |
| 1739 | (if (eq method-type 'foreign) | 1739 | (if (eq (cadr method-group-list) 'foreign) |
| 1740 | foreign-level | 1740 | foreign-level |
| 1741 | alevel)) | 1741 | alevel)) |
| 1742 | (setcar (nthcdr 2 method-group-list) | 1742 | (setcar (nthcdr 2 method-group-list) |