* gnus-agent.el (gnus-agent-mode): Fixed the mode line reports

	'plugged' when actually 'unplugged' bug.
	(gnus-category-read): Ignore nil values when converting an
	old-format category so that the new-format category will default
	those attributes to the global variables.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52ae7a4..860f327 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2003-03-03  Kevin Greiner  <kgreiner@xpediantsolutions.com>
+
+       * gnus-agent.el (gnus-agent-mode): Fixed the mode line reports
+       'plugged' when actually 'unplugged' bug.
+       (gnus-category-read): Ignore nil values when converting an
+       old-format category so that the new-format category will default
+       those attributes to the global variables.
+
 2003-03-03  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * mail-source.el (mail-source-delete-old-incoming-confirm): Fixed

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 624f60c..9c5b781 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -416,7 +416,12 @@ manipulated as follows:
                                                     buffer))))
            minor-mode-map-alist))
     (when (eq major-mode 'gnus-group-mode)
-      (gnus-agent-toggle-plugged gnus-plugged))
+      (let ((init-plugged gnus-plugged))
+        ;; g-a-t-p does nothing when gnus-plugged isn't changed.
+        ;; Therefore, make certain that the current value does not
+        ;; match the desired initial value.
+        (setq gnus-plugged :unknown)
+        (gnus-agent-toggle-plugged init-plugged)))
     (gnus-run-hooks 'gnus-agent-mode-hook
                    (intern (format "gnus-agent-%s-mode-hook" buffer)))))
 
@@ -2110,11 +2115,13 @@ The following commands are available:
                 (mapcar
                  (lambda (c)
                    (setcdr c
-                           (mapcar*
-                            (lambda (valu symb)
-                              (cons symb valu))
-                            (cdr c)
-                            '(agent-predicate agent-score-file agent-groups)))
+                           (delq nil
+                                 (mapcar*
+                                  (lambda (valu symb)
+                                    (if valu
+                                        (cons symb valu)))
+                                  (cdr c)
+                                  '(agent-predicate agent-score-file agent-groups))))
                    c)
                  old-list)))))
          (list (gnus-agent-cat-make 'default)))))