mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

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

Browse Source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2018-04-15 00:14:30 +02:00
parent 30f5fa75da
commit 86bbde2808
1 changed files with 19 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lisp/gnus/nnir.el
View File

@ -1772,31 +1772,29 @@ article came from is also searched."
(if (eq (car method) 'nntp) (if (eq (car method) 'nntp)
(while (not (eobp)) (while (not (eobp))
(ignore-errors (ignore-errors
(push (string-as-unibyte (push (gnus-group-full-name
(gnus-group-full-name (buffer-substring
(buffer-substring (point)
(point) (progn
(progn (skip-chars-forward "^ \t")
(skip-chars-forward "^ \t") (point)))
(point))) method)
method))
groups)) groups))
(forward-line)) (forward-line))
(while (not (eobp)) (while (not (eobp))
(ignore-errors (ignore-errors
(push (string-as-unibyte (push (if (eq (char-after) ?\")
(if (eq (char-after) ?\") (gnus-group-full-name (read cur) method)
(gnus-group-full-name (read cur) method) (let ((p (point)) (name ""))
(let ((p (point)) (name "")) (skip-chars-forward "^ \t\\\\")
(skip-chars-forward "^ \t\\\\") (setq name (buffer-substring p (point)))
(setq name (buffer-substring p (point))) (while (eq (char-after) ?\\)
(while (eq (char-after) ?\\) (setq p (1+ (point)))
(setq p (1+ (point))) (forward-char 2)
(forward-char 2) (skip-chars-forward "^ \t\\\\")
(skip-chars-forward "^ \t\\\\") (setq name (concat name (buffer-substring
(setq name (concat name (buffer-substring p (point)))))
p (point))))) (gnus-group-full-name name method)))
(gnus-group-full-name name method))))
groups)) groups))
(forward-line))))) (forward-line)))))
groups)) groups))