martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lisp/gnus/gnus-int.el (gnus-backend-trace): Honour gnus-backend-trace

Browse Source
This commit is contained in:
Christopher Schmidt
2013-01-30 22:45:32 +00:00
committed by Katsumi Yamaoka
parent c56d2269c2
commit 5f9eccc4b6
2 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View File

@@ -1,5 +1,8 @@
2013-01-30 Christopher Schmidt <christopher@ch.ristopher.com>
* gnus-int.el (gnus-backend-trace-elapsed): New variable.
(gnus-backend-trace): Honour gnus-backend-trace.
* mml.el (mml-insert-part): Insert closing tag.
* mm-decode.el (mm-save-part): Handle invalid read-file-name results.

22
lisp/gnus/gnus-int.el
View File

@@ -248,18 +248,20 @@ If it is down, start it up (again)."
'denied))
(defvar gnus-backend-trace nil)
(defvar gnus-backend-trace-elapsed nil)
(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 " %.2fs %s %S\n"
(if (numberp gnus-backend-trace)
(- (float-time) gnus-backend-trace)
0)
type form))
(setq gnus-backend-trace (float-time))))
(when gnus-backend-trace
(with-current-buffer (get-buffer-create "*gnus trace*")
(buffer-disable-undo)
(goto-char (point-max))
(insert (format-time-string "%H:%M:%S")
(format " %.2fs %s %S\n"
(if (numberp gnus-backend-trace-elapsed)
(- (float-time) gnus-backend-trace-elapsed)
0)
type form))
(setq gnus-backend-trace-elapsed (float-time)))))
(defun gnus-open-server (gnus-command-method)
"Open a connection to GNUS-COMMAND-METHOD."