2001-08-18 19:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus.el (gnus-expand-group-parameters): Fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9f05635..21c3758 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-08-18 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus.el (gnus-expand-group-parameters): Fix.
+
        * gnus-spec.el (gnus-char-width): New.
        (gnus-correct-substring, gnus-correct-length): Use it.
 

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 7928950..f5576ff 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2777,7 +2777,7 @@ You should probably use `gnus-find-method-for-group' instead."
   "Go through PARAMETERS and expand them according to the match data."
   (dolist (elem parameters)
     (when (stringp (cdr elem))
-      (setcdr elem (replace-match elem nil nil group)))))
+      (setcdr elem (replace-match (cdr elem) nil nil group)))))
 
 (defun gnus-group-find-parameter (group &optional symbol allow-list)
   "Return the group parameters for GROUP.