From 26c6b95dec22334e9f09f1fcacbd8751c242b2a4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 16 Dec 2004 12:33:03 +0000 Subject: [PATCH] Synch to No Gnus 200412161232. --- lisp/ChangeLog | 5 +++++ lisp/gnus-group.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) 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 + + * gnus-group.el (gnus-group-make-rss-group): Unify non-ASCII group + names. + 2004-12-16 Simon Josefsson * 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 "")) -- 1.7.10.4