1 files changed, 19 insertions, 21 deletions

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 7d75603ca07..7e5f56e4dd0 100644
--- 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))