Commit b7645a9d authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

nnimap.el (nnimap-retrieve-group-data-early): Don't say we're doing an initial...

nnimap.el (nnimap-retrieve-group-data-early): Don't say we're doing an initial sync unless we're really doing one.
parent f52bac22
2012-02-02 Lars Ingebrigtsen <larsi@gnus.org> 2012-02-02 Lars Ingebrigtsen <larsi@gnus.org>
   
* nnimap.el (nnimap-retrieve-group-data-early): Don't say we're doing
an initial sync unless we're really doing one.
* gnus-group.el (gnus-group-read-ephemeral-group): Don't add a new * gnus-group.el (gnus-group-read-ephemeral-group): Don't add a new
address parameter if one already exists (bug#9676). address parameter if one already exists (bug#9676).
   
......
...@@ -1244,12 +1244,7 @@ textual parts.") ...@@ -1244,12 +1244,7 @@ textual parts.")
'qresync 'qresync
nil group 'qresync) nil group 'qresync)
sequences) sequences)
(let ((start (let ((command
(if (and active uidvalidity)
;; Fetch the last 100 flags.
(max 1 (- (cdr active) 100))
1))
(command
(if uidvalidity (if uidvalidity
"EXAMINE" "EXAMINE"
;; If we don't have a UIDVALIDITY, then this is ;; If we don't have a UIDVALIDITY, then this is
...@@ -1257,9 +1252,14 @@ textual parts.") ...@@ -1257,9 +1252,14 @@ textual parts.")
;; have to do a SELECT (which is slower than an ;; have to do a SELECT (which is slower than an
;; examine), but will tell us whether the group ;; examine), but will tell us whether the group
;; is read-only or not. ;; is read-only or not.
"SELECT"))) "SELECT"))
(setf (nnimap-initial-resync nnimap-object) start)
(1+ (nnimap-initial-resync nnimap-object))) (if (and active uidvalidity)
;; Fetch the last 100 flags.
(setq start (max 1 (- (cdr active) 100)))
(setf (nnimap-initial-resync nnimap-object)
(1+ (nnimap-initial-resync nnimap-object)))
(setq start 1))
(push (list (nnimap-send-command "%s %S" command (push (list (nnimap-send-command "%s %S" command
(utf7-encode group t)) (utf7-encode group t))
(nnimap-send-command "UID FETCH %d:* FLAGS" start) (nnimap-send-command "UID FETCH %d:* FLAGS" start)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment