(gnus-backend-trace): Also not the elapsed seconds.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24aa9e9..5a91b08 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
        for reuse.
        (gnus-open-server): Use it to add more tracing.
        (gnus-finish-retrieve-group-infos): Add backend tracing.
+       (gnus-backend-trace): Also not the elapsed seconds.
 
 2012-12-22  Philipp Haselwarter <philipp@haselwarter.org>
 

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index b692299..ea887b2 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -252,9 +252,14 @@ If it is down, start it up (again)."
 (defun gnus-backend-trace (type form)
   (with-current-buffer (get-buffer-create "*gnus trace*")
     (buffer-disable-undo)
-      (goto-char (point-max))
-      (insert (format-time-string "%H:%M:%S")
-             (format " %s %S\n" type form))))
+    (goto-char (point-max))
+    (insert (format-time-string "%H:%M:%S")
+           (format " %.2fs %s %S\n"
+                   (if (numberp gnus-backend-trace)
+                       (- (float-time) gnus-backend-trace)
+                     0)
+                   type form))
+    (setq gnus-backend-trace (float-time))))
 
 (defun gnus-open-server (gnus-command-method)
   "Open a connection to GNUS-COMMAND-METHOD."