Mercurial > emacs

diff lisp/gnus/gnus-start.el @ 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 5f1ab3dd344d
children 39f23890e482
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))))