From 4f25b95aa4e068a6cba478de95115e2ea1ca2b09 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 24 Sep 2010 18:21:05 +0200 Subject: [PATCH] Register the last command time so that we can use it for idling NOOPs. --- lisp/ChangeLog | 3 +++ lisp/nnimap.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fc00cc9ab..b4080ccfc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-24 Lars Magne Ingebrigtsen + * nnimap.el (nnimap-command): Register the last command time so + that we can use it for idling NOOPs. + * starttls.el: (starttls-open-stream): Add autoload cookie. 2010-09-24 Michael Welsh Duggan (tiny change) diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 42fe4d48f..f9013bc26 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -91,7 +91,8 @@ not done by default on servers that doesn't support that command.") "Internal variable with default value for `nnimap-split-download-body'.") (defstruct nnimap - group process commands capabilities select-result newlinep server) + group process commands capabilities select-result newlinep server + last-command-time) (defvar nnimap-object nil) @@ -986,6 +987,7 @@ not done by default on servers that doesn't support that command.") (defun nnimap-command (&rest args) (erase-buffer) + (setf (nnimap-last-command-time) (current-time)) (let* ((sequence (apply #'nnimap-send-command args)) (response (nnimap-get-response sequence))) (if (equal (caar response) "OK") -- 2.34.1