* nntp.el (nntp-record-command): Use format-time-string.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 009e8b32bd9dd73af3d5b0bfba0e17f26d490e99..88ba910912e645b60895b13a8701727bfe172143 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,8 +1,9 @@
 2011-07-01  Paul Eggert  <eggert@cs.ucla.edu>
 
-       * gnus-util.el (gnus-message-with-timestamp-1): Use format-time-string
-       rather than decoding time stamps by hand.  This is simpler, and
-       insulates the code from changes to time stamp formats.
+       * nntp.el (nntp-record-command):
+       * gnus-util.el (gnus-message-with-timestamp-1):
+       Use format-time-string rather than decoding time stamps by hand.
+       This is simpler and insulates the code from changes to time formats.
 
 2011-06-30  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index a8ffc6576cafef4b094f2c77bee43d93b57b1e89..986fd51a613d07d9f6dfd0c97e3b8c52c77355dd 100644 (file)
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -338,10 +338,8 @@ backend doesn't catch this error.")
   "Record the command STRING."
   (with-current-buffer (get-buffer-create "*nntp-log*")
     (goto-char (point-max))
-    (let ((time (current-time)))
-      (insert (format-time-string "%Y%m%dT%H%M%S" time)
-             "." (format "%03d" (/ (nth 2 time) 1000))
-             " " nntp-address " " string "\n"))))
+    (insert (format-time-string "%Y%m%dT%H%M%S.%3N")
+           " " nntp-address " " string "\n")))
 
 (defun nntp-report (&rest args)
   "Report an error from the nntp backend.  The first string in ARGS