Commit 34605021 authored by Eric Abrahamsen's avatar Eric Abrahamsen

Decode Gnus group names when browsing server group lists

* lisp/gnus/gnus-srvr.el (gnus-browse-foreign-server): The coding
  system for the nntp-server-buffer is 'binary; decode group names as
  'utf-8-emacs.
parent 39f53f4d
Pipeline #1432 passed with stage
in 54 minutes and 31 seconds
......@@ -784,11 +784,13 @@ claim them."
(while (not (eobp))
(ignore-errors
(push (cons
(buffer-substring
(point)
(progn
(skip-chars-forward "^ \t")
(point)))
(decode-coding-string
(buffer-substring
(point)
(progn
(skip-chars-forward "^ \t")
(point)))
'utf-8-emacs)
(let ((last (read cur)))
(cons (read cur) last)))
groups))
......@@ -796,18 +798,20 @@ claim them."
(while (not (eobp))
(ignore-errors
(push (cons
(if (eq (char-after) ?\")
(read cur)
(let ((p (point)) (name ""))
(skip-chars-forward "^ \t\\\\")
(setq name (buffer-substring p (point)))
(while (eq (char-after) ?\\)
(setq p (1+ (point)))
(forward-char 2)
(skip-chars-forward "^ \t\\\\")
(setq name (concat name (buffer-substring
p (point)))))
name))
(decode-coding-string
(if (eq (char-after) ?\")
(read cur)
(let ((p (point)) (name ""))
(skip-chars-forward "^ \t\\\\")
(setq name (buffer-substring p (point)))
(while (eq (char-after) ?\\)
(setq p (1+ (point)))
(forward-char 2)
(skip-chars-forward "^ \t\\\\")
(setq name (concat name (buffer-substring
p (point)))))
name))
'utf-8-emacs)
(let ((last (read cur)))
(cons (read cur) last)))
groups))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment