Bad group name in history.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad3eb95..a3c4aed 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-12-18 01:08:10  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-agent-enter-history): Bad group name.
+
 1999-12-17 19:36:47  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * rfc2047.el (rfc2047-dissect-region): Use mapcar instead of

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index be7450c..b4c1d47 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -701,7 +701,8 @@ the actual number of articles toggled is returned."
     (goto-char (point-max))
     (insert id "\t" (number-to-string date) "\t")
     (while group-arts
-      (insert (caar group-arts) " " (number-to-string (cdr (pop group-arts)))
+      (insert (format "%S" (caar group-arts)) 
+             " " (number-to-string (cdr (pop group-arts)))
              " "))
     (insert "\n")))