From d5c1e1211aec0e854a6e9d5ef4349e67e1516794 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 18 Jul 2019 15:17:27 +0200 Subject: [PATCH] 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 67c5db1e044..4a1ab2cca5c 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)) -- 2.39.2