2001-11-21 01:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-agent.el (gnus-category-insert-line): Convert category
	names to strings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87e543a..7afcea3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-21 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-category-insert-line): Convert category
+       names to strings.
+
 2001-11-20 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (sha1): eval-and-compile.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index a57f7d2..778ca17 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1340,7 +1340,7 @@ The following commands are available:
 (defalias 'gnus-category-position-point 'gnus-goto-colon)
 
 (defun gnus-category-insert-line (category)
-  (let* ((gnus-tmp-name (car category))
+  (let* ((gnus-tmp-name (format "%s" (car category)))
         (gnus-tmp-groups (length (cadddr category))))
     (beginning-of-line)
     (gnus-add-text-properties