# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 878958564 0
# Node ID 518f3a9e581294545e256b8a6e9837a2e9122079
# Parent  a21b3ed1915eebbcbcd079eda7fe1a6dde7ee6b8
(gnus-read-descriptions-file): Decode
description if necessary.

diff -r a21b3ed1915e -r 518f3a9e5812 lisp/gnus/gnus-start.el
--- a/lisp/gnus/gnus-start.el	Sat Nov 08 03:08:40 1997 +0000
+++ b/lisp/gnus/gnus-start.el	Sat Nov 08 03:09:24 1997 +0000
@@ -2438,8 +2438,14 @@
 	    (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))))