From 2aef6613ab584151b6d2dba6953a4bec0f33894c Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 13 Feb 2011 19:02:51 -0800 Subject: [PATCH] (nnimap-send-command): Mark the command time for each command, so that we don't get NOOPs stepping on our toes. --- lisp/ChangeLog | 3 +++ lisp/nnimap.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0d1ec1da6..68a3140d6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-02-14 Lars Ingebrigtsen + * nnimap.el (nnimap-send-command): Mark the command time for each + command, so that we don't get NOOPs stepping on our toes. + * gnus-art.el (article-date-ut): Get the date from the Date header on `t'. diff --git a/lisp/nnimap.el b/lisp/nnimap.el index be3f81251..b61253902 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -1565,6 +1565,7 @@ textual parts.") (defvar nnimap-sequence 0) (defun nnimap-send-command (&rest args) + (setf (nnimap-last-command-time nnimap-object) (current-time)) (process-send-string (get-buffer-process (current-buffer)) (nnimap-log-command @@ -1588,7 +1589,6 @@ textual parts.") (defun nnimap-command (&rest args) (erase-buffer) - (setf (nnimap-last-command-time nnimap-object) (current-time)) (let* ((sequence (apply #'nnimap-send-command args)) (response (nnimap-get-response sequence))) (if (equal (caar response) "OK") -- 2.34.1