From: Paul Eggert Date: Fri, 1 Jul 2011 01:49:43 +0000 (-0700) Subject: * nntp.el (nntp-record-command): Use format-time-string. X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~293 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=240a298f78ab504afcf0792e3061be9b95c8c581;p=emacs.git * nntp.el (nntp-record-command): Use format-time-string. --- 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