From 0791fc5615064e8277caf736c0d62632a6b12e54 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 8 Nov 1997 03:09:24 +0000 Subject: [PATCH] (gnus-read-descriptions-file): Decode description if necessary. --- lisp/gnus/gnus-start.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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)))) -- 2.39.2