From 8905e3349bb43cd632b7fa186d8530a8dbcdc7d6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 18 May 2004 00:43:24 +0000 Subject: [PATCH] Synch to No Gnus 200405180015. --- lisp/ChangeLog | 5 +++++ lisp/gnus-start.el | 2 +- lisp/nnrss.el | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9c557bf..dce3bf9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-05-18 Lars Magne Ingebrigtsen + + * gnus-start.el (gnus-get-unread-articles-in-group): Don't do + stuff for non-living group.s + 2004-05-18 Jesper Harder * gnus-art.el (gnus-article-followup-with-original) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 6ffb8a1..f2a065f 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1546,7 +1546,7 @@ newsgroup." active))))) (defun gnus-get-unread-articles-in-group (info active &optional update) - (when active + (when (and info active) ;; Allow the backend to update the info in the group. (when (and update (gnus-request-update-info diff --git a/lisp/nnrss.el b/lisp/nnrss.el index fc2662a..55dd460 100644 --- a/lisp/nnrss.el +++ b/lisp/nnrss.el @@ -254,7 +254,7 @@ ARTICLE is the article number of the current headline.") "Fetch URL and put it in a the expected Lisp structure." (with-temp-buffer ;;some CVS versions of url.el need this to close the connection quickly - (let* (xmlform htmlform) + (let (xmlform htmlform) ;; bit o' work necessary for w3 pre-cvs and post-cvs (if local (let ((coding-system-for-read 'binary)) -- 1.7.10.4