From: yamaoka <yamaoka>
Date: Thu, 16 Dec 2004 12:33:03 +0000 (+0000)
Subject: Synch to No Gnus 200412161232.
X-Git-Tag: t-gnus-6_17_4-quimby-~630
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=26c6b95dec22334e9f09f1fcacbd8751c242b2a4;p=elisp%2Fgnus.git-

Synch to No Gnus 200412161232.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 417c6ac..f34f9a9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-group.el (gnus-group-make-rss-group): Unify non-ASCII group
+	names.
+
 2004-12-16  Simon Josefsson  <jas@extundo.com>
 
 	* hashcash.el (hashcash-payment-alist): Fix custom :type.
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index d2636f8..28f3610 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2675,10 +2675,15 @@ If there is, use Gnus to create an nnrss group"
 	      (desc  (read-from-minibuffer "Description: "
 					   (cdr (assoc 'description
 						       feedinfo))))
-	      (href (cdr (assoc 'href feedinfo))))
+	      (href (cdr (assoc 'href feedinfo)))
+	      (encodable (mm-coding-system-p 'utf-8)))
+	  (when encodable
+	    ;; Unify non-ASCII text.
+	    (setq title (mm-decode-coding-string
+			 (mm-encode-coding-string title 'utf-8) 'utf-8)))
 	  (push (list title href desc)
 		nnrss-group-alist)
-	  (gnus-group-make-group (if (mm-coding-system-p 'utf-8)
+	  (gnus-group-make-group (if encodable
 				     (mm-encode-coding-string title 'utf-8)
 				   title)
 				 '(nnrss ""))