emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master b058cac: nnimap MODSEQ cleanup


From: Paul Eggert
Subject: master b058cac: nnimap MODSEQ cleanup
Date: Tue, 13 Oct 2020 13:25:45 -0400 (EDT)

branch: master
commit b058caca72d123b6a21912f1a3b3e43490f05c9c
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    nnimap MODSEQ cleanup
    
    * lisp/gnus/nnimap.el (nnimap-parse-flags):
    Remove old hack that deletes MODSEQ entries in the buffer, as
    Emacs now has bignums and so won't misparse MODSEQs (Bug#38938).
---
 lisp/gnus/nnimap.el | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index d797e89..8a88e0e 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1772,11 +1772,6 @@ If LIMIT, first try to limit the search to the N last 
articles."
   ;; read it.
   (subst-char-in-region (point-min) (point-max)
                        ?\\ ?% t)
-  ;; Remove any MODSEQ entries in the buffer, because they may contain
-  ;; numbers that are too large for 32-bit Emacsen.
-  (while (re-search-forward " MODSEQ ([0-9]+)" nil t)
-    (replace-match "" t t))
-  (goto-char (point-min))
   (let (start end articles groups uidnext elems permanent-flags
              uidvalidity vanished highestmodseq)
     (dolist (elem sequences)
@@ -1803,8 +1798,9 @@ If LIMIT, first try to limit the search to the N last 
articles."
                 (setq uidvalidity
                       (and (re-search-forward "UIDVALIDITY \\([0-9]+\\)"
                                               end t)
-                           ;; Store UIDVALIDITY as a string, as it's
-                           ;; too big for 32-bit Emacsen, usually.
+                           ;; Store UIDVALIDITY as a string; before bignums,
+                           ;; it was usually too big for 32-bit Emacsen,
+                           ;; and we don't want to change the format now.
                            (match-string 1)))
                 (goto-char start)
                 (setq vanished



reply via email to

[Prev in Thread] Current Thread [Next in Thread]