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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 009e8b3..88ba910 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 a8ffc65..986fd51 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