From: ueno <ueno>
Date: Thu, 21 Feb 2002 03:23:05 +0000 (+0000)
Subject: * nnheader.el (mm-string-as-unibyte): Alias to
X-Git-Tag: t-gnus-6_15_6-01-quimby~41
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2f8e4e8686544083d20041dde0cef274241800f3;p=elisp%2Fgnus.git-

* nnheader.el (mm-string-as-unibyte): Alias to
`string-as-unibyte'.

* gnus-srvr.el (gnus-browse-foreign-server): Return unibyte
group names.
---

diff --git a/ChangeLog b/ChangeLog
index 2365a05..c6e7747 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2002-02-21   Daiki Ueno  <ueno@unixuser.org>
+
+	* 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  <yamaoka@jpl.org>
 
 	* 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)