More non-ascii group name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d394a47..2aa2bcd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,10 @@
 2000-05-16 18:15:24  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-group.el (gnus-group-apropos): Group name charset.
+       * gnus-sum.el (gnus-set-mode-line): Ditto.
+       * gnus-group.el (gnus-group-decoded-name): New function.
+       (gnus-group-edit-group): Use it.
+       * gnus-cus.el (gnus-group-customize): Use it.
 
 2000-05-16 17:55:57  Karl Kleinpaste <karl@charcoal.com>
 

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 1bc3c6c..801c0e8 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -305,7 +305,7 @@ DOC is a documentation string for the parameter.")
                     :tag  "topic parameters"
                     "(gnus)Topic Parameters"))
     (widget-insert " for <")
-    (widget-insert (or group topic))
+    (widget-insert (gnus-group-decoded-name (or group topic)))
     (widget-insert "> and press ")
     (widget-create 'push-button
                   :tag "done"

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 671e35c..a06c66c 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -911,6 +911,10 @@ The following commands are available:
       (mm-decode-coding-string string charset)
     string))
 
+(defun gnus-group-decoded-name (string)
+  (let ((charset (gnus-group-name-charset nil string)))
+    (gnus-group-name-decode string charset)))
+
 (defun gnus-group-list-groups (&optional level unread lowest)
   "List newsgroups with level LEVEL or lower that have unread articles.
 Default is all subscribed groups.
@@ -2059,7 +2063,7 @@ and NEW-NAME will be prompted for."
        ((eq part 'method) "select method")
        ((eq part 'params) "group parameters")
        (t "group info"))
-      group)
+      (gnus-group-decoded-name group))
      `(lambda (form)
        (gnus-group-edit-group-done ',part ,group form)))))
 
@@ -3257,7 +3261,7 @@ to use."
     (mapatoms
      (lambda (group)
        (setq b (point))
-       (let ((charset (gnus-group-name-charset nil group)))
+       (let ((charset (gnus-group-name-charset nil (symbol-name group))))
         (insert (format "      *: %-20s %s\n" 
                         (gnus-group-name-decode
                          (symbol-name group) charset)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 7514f94..119209e 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4460,7 +4460,11 @@ 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-newsgroup-name)
+              (gnus-tmp-group-name (gnus-group-name-decode 
+                                    gnus-newsgroup-name
+                                    (gnus-group-name-charset 
+                                     nil
+                                     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))