2001-02-14 Katsumi Yamaoka <yamaoka@jpl.org>

        Committed by ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus.el (gnus-define-group-parameter): Fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b6376a..428de01 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-14  Katsumi Yamaoka <yamaoka@jpl.org>
+        Committed by ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus.el (gnus-define-group-parameter): Fix.
+
 2001-02-14 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus.el (gnus-define-group-parameter): Improved.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index df3955a..c5a59a1 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -892,9 +892,9 @@ REST is a plist of following:
                         ,parameter-type
                         ,parameter-document))
      (if (eq type 'bool)
-        `(defun ,function (group)
+        `(defun ,function (name)
            ,function-document
-           (let ((params (gnus-group-find-parameter group))
+           (let ((params (gnus-group-find-parameter name))
                  val)
              (cond
               ((memq ',param params)
@@ -902,7 +902,7 @@ REST is a plist of following:
               ((setq val (assq ',param params))
                (cdr val))
               ((stringp ,variable)
-               (string-match ,variable group))
+               (string-match ,variable name))
               (,variable
                (let ((alist ,variable)
                      elem value)