From 240a298f78ab504afcf0792e3061be9b95c8c581 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 30 Jun 2011 18:49:43 -0700 Subject: [PATCH] * nntp.el (nntp-record-command): Use format-time-string. --- lisp/gnus/ChangeLog | 7 ++++--- lisp/gnus/nntp.el | 6 ++---- 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 - * 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 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 -- 2.39.2