Remove calls to string-as-unibyte from nnir.el

* lisp/gnus/nnir.el (nnir-get-active): Remove two calls to
string-as-unibyte from code that seems cargo-culted from Gnus
functions where it is not needed, so it's presumably not needed
here, either.

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 7d75603ca075375a3ee58f2babaf41cc0cfb516c..7e5f56e4dd001f2804382aaca1255e8d67dfecbf 100644 (file)
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -1772,31 +1772,29 @@ article came from is also searched."
        (if (eq (car method) 'nntp)
            (while (not (eobp))
              (ignore-errors
-               (push (string-as-unibyte
-                      (gnus-group-full-name
-                       (buffer-substring
-                        (point)
-                        (progn
-                          (skip-chars-forward "^ \t")
-                          (point)))
-                       method))
+               (push (gnus-group-full-name
+                      (buffer-substring
+                       (point)
+                       (progn
+                         (skip-chars-forward "^ \t")
+                         (point)))
+                      method)
                      groups))
              (forward-line))
          (while (not (eobp))
            (ignore-errors
-             (push (string-as-unibyte
-                    (if (eq (char-after) ?\")
-                        (gnus-group-full-name (read cur) method)
-                      (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)))))
-                        (gnus-group-full-name name method))))
+             (push (if (eq (char-after) ?\")
+                       (gnus-group-full-name (read cur) method)
+                     (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)))))
+                       (gnus-group-full-name name method)))
                    groups))
            (forward-line)))))
     groups))