mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-read-descriptions-file): Decode

Browse source 
description if necessary.
This commit is contained in:
Kenichi Handa 1997-11-08 03:09:24 +00:00
parent b847b1de5b
commit 0791fc5615
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/gnus-start.el
View file

@ -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))))