[email protected] (João Távora) writes:
> Hi all,
>
> Is there any way to turn this
>
> U. 2013-08-30 16:37 [ Julien Cubizolles ] `->
> U. 2013-08-30 23:27 [ Catonano ] v o-blog (helpwith
> U. 2013-08-31 02:12 [ Jambunathan K ] `->
> U. 2013-08-31 22:26 [ Catonano ] `->
>
> Into this?
>
> U. 2013-08-30 16:37 [ Julien Cubizolles ] `->
> U. 23:27 [ Catonano ] v o-blog (helpwith
> U. 2013-08-31 02:12 [ Jambunathan K ] `->
> U. 22:26 [ Catonano ] `->
>
Well, this seems to be working:
(add-hook 'gnus-summary-update-hook
'joaot/gnus-summary-fancify-date)
(defvar joaot/gnus-date-regexp
"^....\\([[:digit:]]\\{4\\}-[[:digit:]]\\{2\\}-[[:digit:]]\\{2\\}\\) .*")
(defun joaot/gnus-summary-fancify-date ()
(goto-char (point-min))
(loop with last-date = nil
while (search-forward-regexp joaot/gnus-date-regexp nil t)
for this-date = (match-string 1)
when (and last-date
(string= this-date last-date))
do
(let ((inhibit-read-only t))
(add-text-properties (match-beginning 1)
(match-end 1)
`(face (:foreground ,(frame-parameter
(selected-frame)
'background-color)))))
do (setq last-date this-date)))
Just in case anyone finds it useful or wants to improve it. The regexp
bit is a little fragile.
J
_______________________________________________
info-gnus-english mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/info-gnus-english
