Re: any way to timestamp Messages?

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <ur6obu3dx.fsf@gmail.com> Sivaram N wrote:

> I have

> (setq gnus-verbose 10)
> (setq gnus-verbose-backends 10)

> in my .gnus.el file.  Is there a way to get it timestamped as it
> writes all those messages to the *Messages* buffer?  A configurable
> option would be nice.

> Maybe get (current-time-string) to be called before writing?

You want timestamps to be only in the *Messages* buffer, don't
you?  There seems to be no way to add timestamps only to the
*Messages* buffer but the following workaround will work:

--8<---------------cut here---------------start------------->8---
(defadvice gnus-message (before add-timestamp (level &rest args) activate)
  "Add a timestamp."
  (setcar args (concat (propertize (concat (current-time-string) "> ")
				   'invisible t)
		       (car args))))

(defadvice nnheader-message (before add-timestamp (level &rest args) activate)
  "Add a timestamp."
  (setcar args (concat (propertize (concat (current-time-string) "> ")
				   'invisible t)
		       (car args))))
--8<---------------cut here---------------end--------------->8---

And here's a version similar to `nntp-record-command'.

--8<---------------cut here---------------start------------->8---
(defadvice gnus-message (before add-timestamp (level &rest args) activate)
  "Add a timestamp."
  (setcar args
	  (concat (propertize
		   (let ((time (current-time)))
		     (concat (format-time-string "%Y%m%dT%H%M%S" time)
			     "." (format "%03d" (/ (nth 2 time) 1000))
			     "> "))
		   'invisible t)
		  (car args))))

(defadvice nnheader-message (before add-timestamp (level &rest args) activate)
[...same as above...]
--8<---------------cut here---------------end--------------->8---