From: Kenichi Handa <handa@m17n.org>
Date: Sat, 8 Nov 1997 03:09:24 +0000 (+0000)
Subject: (gnus-read-descriptions-file): Decode
X-Git-Tag: emacs-20.3~2838
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0791fc5615064e8277caf736c0d62632a6b12e54;p=emacs.git

(gnus-read-descriptions-file): Decode
description if necessary.
---

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index ad4a437371e..86841b1c010 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2438,8 +2438,14 @@ If FORCE is non-nil, the .newsrc file is read."
 	    (skip-chars-forward " \t")
 	    ;; ...  which leads to this line being effectively ignored.
 	    (when (symbolp group)
-	      (set group (buffer-substring
-			  (point) (progn (end-of-line) (point)))))
+	      (let ((str (buffer-substring
+			  (point) (progn (end-of-line) (point))))
+		    (coding
+		     (and enable-multibyte-characters
+			  (gnus-mule-get-coding-system (symbol-name group)))))
+		(if coding
+		    (setq str (decode-coding-string str (car coding))))
+		(set group str)))
 	    (forward-line 1))))
       (gnus-message 5 "Reading descriptions file...done")
       t))))