* nnheader.el (mm-string-as-unibyte): Undo the last change.

* gnus-srvr.el (gnus-browse-foreign-server): Ditto.

diff --git a/ChangeLog b/ChangeLog
index c6e7747..c312a98 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2002-02-21   Daiki Ueno  <ueno@unixuser.org>
 
+       * lisp/nnheader.el (mm-string-as-unibyte): Undo the last change.
+       * lisp/gnus-srvr.el (gnus-browse-foreign-server): Ditto.
+
+2002-02-21   Daiki Ueno  <ueno@unixuser.org>
+
        * lisp/nnheader.el (mm-string-as-unibyte): Alias to
        `string-as-unibyte'.
 

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 8fc1dcd..9d6b543 100644 (file)
--- 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) ?\")
-                        (mm-string-as-unibyte (read cur))
+                        (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)))))
-                        (mm-string-as-unibyte name)))
+                        name))
                     (let ((last (read cur)))
                       (cons (read cur) last)))
                    groups))

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 50f9c70..f759abe 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -134,7 +134,6 @@ 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)