Mercurial > emacs

changeset 20235:518f3a9e5812

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-read-descriptions-file): Decode description if necessary.
author Kenichi Handa <handa@m17n.org>
date Sat, 08 Nov 1997 03:09:24 +0000
parents a21b3ed1915e
children fe71a35628c9
files lisp/gnus/gnus-start.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))))