[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/10/24 10:42:22

Index: gnus-group.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-group.el,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- gnus-group.el       29 Jun 2006 22:54:24 -0000      1.54
+++ gnus-group.el       24 Oct 2006 10:42:21 -0000      1.55
@@ -2680,13 +2680,18 @@
                          (t (setq err (format "%c unknown. " char))
                             nil))))
       (setq type found)))
-  (let* ((file (expand-file-name file))
-        (name (gnus-generate-new-group-name
+  (setq file (expand-file-name file))
+  (let ((name (gnus-generate-new-group-name
                (gnus-group-prefixed-name
-                (file-name-nondirectory file) '(nndoc "")))))
+               (file-name-nondirectory file) '(nndoc ""))))
+       (encodable (mm-coding-system-p 'utf-8)))
     (gnus-group-make-group
-     (gnus-group-real-name name)
-     (list 'nndoc file
+     (if encodable
+        (mm-encode-coding-string (gnus-group-real-name name) 'utf-8)
+       (gnus-group-real-name name))
+     (list 'nndoc (if encodable
+                     (mm-encode-coding-string file 'utf-8)
+                   file)
           (list 'nndoc-address file)
           (list 'nndoc-article-type (or type 'guess))))))