From 2f8e4e8686544083d20041dde0cef274241800f3 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 21 Feb 2002 03:23:05 +0000 Subject: [PATCH] * nnheader.el (mm-string-as-unibyte): Alias to `string-as-unibyte'. * gnus-srvr.el (gnus-browse-foreign-server): Return unibyte group names. --- ChangeLog | 8 ++++++++ lisp/gnus-srvr.el | 4 ++-- lisp/nnheader.el | 1 + 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2365a05..c6e7747 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2002-02-21 Daiki Ueno + + * lisp/nnheader.el (mm-string-as-unibyte): Alias to + `string-as-unibyte'. + + * lisp/gnus-srvr.el (gnus-browse-foreign-server): Return unibyte + group names. + 2002-02-19 Katsumi Yamaoka * lisp/lpath.el: Bind `navi2ch-mona-font'. diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el index 9d6b543..8fc1dcd 100644 --- a/lisp/gnus-srvr.el +++ b/lisp/gnus-srvr.el @@ -717,7 +717,7 @@ The following commands are available: (ignore-errors (push (cons (if (eq (char-after) ?\") - (read cur) + (mm-string-as-unibyte (read cur)) (let ((p (point)) (name "")) (skip-chars-forward "^ \t\\\\") (setq name (buffer-substring p (point))) @@ -727,7 +727,7 @@ The following commands are available: (skip-chars-forward "^ \t\\\\") (setq name (concat name (buffer-substring p (point))))) - name)) + (mm-string-as-unibyte name))) (let ((last (read cur))) (cons (read cur) last))) groups)) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index f759abe..50f9c70 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -134,6 +134,7 @@ This variable is a substitute for `mm-text-coding-system-for-write'.") 'ignore)) (defalias 'mm-encode-coding-string 'encode-coding-string) (defalias 'mm-decode-coding-string 'decode-coding-string) + (defalias 'mm-string-as-unibyte 'string-as-unibyte) ;; Should keep track of `mm-detect-coding-region' in mm-util.el. (defun nnheader-detect-coding-region (start end) -- 1.7.10.4