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

2 files changed, 6 insertions, 7 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 009e8b32bd9..88ba910912e 100644
--- 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 a8ffc6576ca..986fd51a613 100644
--- 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