2000-10-05 12:25:08 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-agent.el (gnus-agent-fetch-group-1): Score-param could be nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35099d6..0c07b02 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-05 12:25:08  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-agent-fetch-group-1): Score-param could be nil.
+
 2000-10-05 11:43:25  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * rfc2047.el (rfc2047-encode-region): Merge only if regions are

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 0e12697..88fd025 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1148,6 +1148,7 @@ the actual number of articles toggled is returned."
                  (caddr category)))
        ;; Translate score-param into real one
        (cond
+        ((not score-param))
         ((eq score-param 'file)
          (setq score-param (gnus-all-score-files group)))
         ((stringp (car score-param)))