[Emacs-diffs] master d5c1e12: Clean up code in nnimap-parse-flags slightly

[Lars Ingebrigtsen]

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

    Clean up code in nnimap-parse-flags slightly
    
    * lisp/gnus/nnimap.el (nnimap-parse-flags): Clean up code
    slightly, removing redundant checks for `end'.
---
 lisp/gnus/nnimap.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 67c5db1..4a1ab2c 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1798,19 +1798,17 @@ If LIMIT, first try to limit the search to the N last 
articles."
                 (goto-char start)
                 (setq permanent-flags
                       (if (equal command "SELECT")
-                          (and (search-forward "PERMANENTFLAGS "
-                                               (or end (point-min)) t)
+                          (and (search-forward "PERMANENTFLAGS " end t)
                                (read (current-buffer)))
                         'not-scanned))
                 (goto-char start)
                 (setq uidnext
-                      (and (search-forward "UIDNEXT "
-                                           (or end (point-min)) t)
+                      (and (search-forward "UIDNEXT " end t)
                            (read (current-buffer))))
                 (goto-char start)
                 (setq uidvalidity
                       (and (re-search-forward "UIDVALIDITY \\([0-9]+\\)"
-                                              (or end (point-min)) t)
+                                              end t)
                            ;; Store UIDVALIDITY as a string, as it's
                            ;; too big for 32-bit Emacsen, usually.
                            (match-string 1)))
@@ -1818,12 +1816,12 @@ If LIMIT, first try to limit the search to the N last 
articles."
                 (setq vanished
                       (and (eq flag-sequence 'qresync)
                            (re-search-forward "^\\* VANISHED .*? 
\\([0-9:,]+\\)"
-                                              (or end (point-min)) t)
+                                              end t)
                            (match-string 1)))
                 (goto-char start)
                 (setq highestmodseq
                       (and (re-search-forward "HIGHESTMODSEQ \\([0-9]+\\)"
-                                           (or end (point-min)) t)
+                                              end t)
                            (match-string 1)))
                 (goto-char end)
                 (forward-line -1))