+2012-12-23 Lars Ingebrigtsen <larsi@gnus.org>
+
2012-12-23 Andreas Schwab <schwab@suse.de>
* shr.el (shr-tag-em): Render em as italic, not bold.
for reuse.
(gnus-open-server): Use it to add more tracing.
(gnus-finish-retrieve-group-infos): Add backend tracing.
+ (gnus-backend-trace): Also note the elapsed seconds.
2012-12-22 Philipp Haselwarter <philipp@haselwarter.org>
(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."