diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-11-08 03:09:24 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-11-08 03:09:24 +0000 |
| commit | 0791fc5615064e8277caf736c0d62632a6b12e54 (patch) | |
| tree | ddc97a28256ca19b699ed5ee6a1fa4d2601c356a /lisp/gnus | |
| parent | b847b1de5bea8ddbbe3ecf50f4207d18d3fa3e3d (diff) | |
| download | emacs-0791fc5615064e8277caf736c0d62632a6b12e54.tar.gz | |
(gnus-read-descriptions-file): Decode
description if necessary.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/gnus-start.el | 10 |
1 files 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)))) |