diff options
Diffstat (limited to 'lisp/gnus/gnus-int.el')
| -rw-r--r-- | lisp/gnus/gnus-int.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index b4e9b625ca8..b27a8a18ebf 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -24,8 +24,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) - (require 'gnus) (require 'message) (require 'gnus-range) @@ -65,6 +63,8 @@ server denied." (const :tag "Deny server" denied) (const :tag "Unplug Agent" offline))) +;; Note: When this option is finally removed, also remove the entire +;; `gnus-start-news-server' function. (defcustom gnus-nntp-server nil "The name of the host running the NNTP server." :group 'gnus-server @@ -259,7 +259,8 @@ If it is down, start it up (again)." (insert (format-time-string "%H:%M:%S") (format " %.2fs %s %S\n" (if (numberp gnus-backend-trace-elapsed) - (- (float-time) gnus-backend-trace-elapsed) + (float-time + (time-since gnus-backend-trace-elapsed)) 0) type form)) (setq gnus-backend-trace-elapsed (float-time))))) |