aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/gnus/ChangeLog1
-rw-r--r--lisp/gnus/gnus-start.el2
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)