[Emacs-diffs] master 86bbde2 1/3: Remove calls to string-as-unibyte from nnir.el

[Lars Ingebrigtsen]

branch: master
commit 86bbde2808f0f555805cd4a6007acac547c0d4df
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/gnus/nnir.el | 40 +++++++++++++++++++---------------------
 1 file changed, 19 insertions(+), 21 deletions(-)

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