(gnus-set-mode-line): Quote % in group name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7e0601..3244a9f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-29  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-sum.el (gnus-set-mode-line): Quote % in group name.
+
 2006-10-28  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-agent.el (gnus-agent-make-mode-line-string): Make it compatible

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 8aaf67a..941c0f3 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5832,8 +5832,9 @@ If WHERE is `summary', the summary mode line format will be used."
        (let* ((mformat (symbol-value
                         (intern
                          (format "gnus-%s-mode-line-format-spec" where))))
-              (gnus-tmp-group-name (gnus-group-decoded-name
-                                    gnus-newsgroup-name))
+              (gnus-tmp-group-name (gnus-mode-string-quote
+                                    (gnus-group-decoded-name
+                                     gnus-newsgroup-name)))
               (gnus-tmp-article-number (or gnus-current-article 0))
               (gnus-tmp-unread gnus-newsgroup-unreads)
               (gnus-tmp-unread-and-unticked (length gnus-newsgroup-unreads))