From bba63b32b390a9d990b7894e06fdbbdbcd9f76ce Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Sat, 18 Dec 1999 06:13:20 +0000 Subject: [PATCH] Bad group name in history. --- lisp/ChangeLog | 4 ++++ lisp/gnus-agent.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ad3eb95cb..a3c4aed7b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +1999-12-18 01:08:10 Shenghuo ZHU + + * gnus-agent.el (gnus-agent-enter-history): Bad group name. + 1999-12-17 19:36:47 Shenghuo ZHU * rfc2047.el (rfc2047-dissect-region): Use mapcar instead of diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index be7450c24..b4c1d4700 100644 --- 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"))) -- 2.25.1