Re: adding date to the summary buffer

[Gottfried]

HI,

thanks to all for help

using your proposal says:

Debugger entered--Lisp error: (void-variable gnus-face-5)
  gnus-face-face-function(((insert gnus-tmp-subject-or-nil)) 5)
  #f(compiled-function (sform) #<bytecode -0xe7ab64bfcc5c361>)((face 5 
"%s"))
  gnus-complex-form-to-spec(("" (face 1 "%U%R%O %4k") " " (face 3 
"%&user-date;" (point) "%uj│") "%I" (mouse 0 "%-16,16f") " " (face 5 
"%s") "\n") ((78 (mail-header-number gnus-tmp-header) 100) (83 
(mail-header-subject gnus-tmp-header) 115) (115 gnus-tmp-subject-or-nil 
115) (110 gnus-tmp-name 115) (65 (car (cdr (funcall 
gnus-extract-address-components gnus-tmp-from))) 115) (97 (or (car 
(funcall gnus-extract-address-components gnus-tmp-from)) gnus-tmp-from) 
115) (70 gnus-tmp-from 115) (120 (mail-header-xref gnus-tmp-header) 115) 
(68 (mail-header-date gnus-tmp-header) 115) (100 (gnus-dd-mmm 
(mail-header-date gnus-tmp-header)) 115) (111 (gnus-date-iso8601 
(mail-header-date gnus-tmp-header)) 115) (77 (mail-header-id 
gnus-tmp-header) 115) (114 (mail-header-references gnus-tmp-header) 115) 
(99 (or (mail-header-chars gnus-tmp-header) 0) 100) (107 
(gnus-summary-line-message-size gnus-tmp-header) 115) (76 gnus-tmp-lines 
115) (90 (or (nnselect-article-rsv (mail-header-number gnus-tmp-header)) 
0) 100) (71 (or (nnselect-article-group (mail-header-number 
gnus-tmp-header)) "") 115) (103 (or (gnus-group-short-name 
(nnselect-article-group (mail-header-number gnus-tmp-header))) "") 115) 
(79 gnus-tmp-downloaded 99) (73 gnus-tmp-indentation 115) (84 (if (= 
gnus-tmp-level 0) "" (make-string (frame-width) 32)) 115) (82 
gnus-tmp-replied 99) (91 gnus-tmp-opening-bracket 115) (93 
gnus-tmp-closing-bracket 115) (62 (make-string gnus-tmp-level 32) 115) 
(60 (make-string (max 0 (- 20 gnus-tmp-level)) 32) 115) (105 
gnus-tmp-score 100) (122 gnus-tmp-score-char 99) (86 
(gnus-thread-total-score (and (boundp 'gnus-tmp-thread) (car 
gnus-tmp-thread))) 100) (85 gnus-tmp-unread 99) (102 
(gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from) 
115) (116 (gnus-summary-number-of-articles-in-thread (and (boundp 
'gnus-tmp-thread) (car gnus-tmp-thread)) gnus-tmp-level) 100) (101 
(gnus-summary-number-of-articles-in-thread (and (boundp 
'gnus-tmp-thread) (car gnus-tmp-thread)) gnus-tmp-level t) 99) (117 
gnus-tmp-user-defined 115) (80 (gnus-pick-line-number) 100) (66 
gnus-tmp-thread-tree-header-string 115) (user-date (gnus-user-date 
(mail-header-date gnus-tmp-header)) 115)))
  gnus-parse-complex-format("%1{%U%R%O %4k%} 
%3{%&user-date;%*%uj│%}%I%(%-16,16..." ((78 (mail-header-number 
gnus-tmp-header) 100) (83 (mail-header-subject gnus-tmp-header) 115) 
(115 gnus-tmp-subject-or-nil 115) (110 gnus-tmp-name 115) (65 (car (cdr 
(funcall gnus-extract-address-components gnus-tmp-from))) 115) (97 (or 
(car (funcall gnus-extract-address-components gnus-tmp-from)) 
gnus-tmp-from) 115) (70 gnus-tmp-from 115) (120 (mail-header-xref 
gnus-tmp-header) 115) (68 (mail-header-date gnus-tmp-header) 115) (100 
(gnus-dd-mmm (mail-header-date gnus-tmp-header)) 115) (111 
(gnus-date-iso8601 (mail-header-date gnus-tmp-header)) 115) (77 
(mail-header-id gnus-tmp-header) 115) (114 (mail-header-references 
gnus-tmp-header) 115) (99 (or (mail-header-chars gnus-tmp-header) 0) 
100) (107 (gnus-summary-line-message-size gnus-tmp-header) 115) (76 
gnus-tmp-lines 115) (90 (or (nnselect-article-rsv (mail-header-number 
gnus-tmp-header)) 0) 100) (71 (or (nnselect-article-group 
(mail-header-number gnus-tmp-header)) "") 115) (103 (or 
(gnus-group-short-name (nnselect-article-group (mail-header-number 
gnus-tmp-header))) "") 115) (79 gnus-tmp-downloaded 99) (73 
gnus-tmp-indentation 115) (84 (if (= gnus-tmp-level 0) "" (make-string 
(frame-width) 32)) 115) (82 gnus-tmp-replied 99) (91 
gnus-tmp-opening-bracket 115) (93 gnus-tmp-closing-bracket 115) (62 
(make-string gnus-tmp-level 32) 115) (60 (make-string (max 0 (- 20 
gnus-tmp-level)) 32) 115) (105 gnus-tmp-score 100) (122 
gnus-tmp-score-char 99) (86 (gnus-thread-total-score (and (boundp 
'gnus-tmp-thread) (car gnus-tmp-thread))) 100) (85 gnus-tmp-unread 99) 
(102 (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header 
gnus-tmp-from) 115) (116 (gnus-summary-number-of-articles-in-thread (and 
(boundp 'gnus-tmp-thread) (car gnus-tmp-thread)) gnus-tmp-level) 100) 
(101 (gnus-summary-number-of-articles-in-thread (and (boundp 
'gnus-tmp-thread) (car gnus-tmp-thread)) gnus-tmp-level t) 99) (117 
gnus-tmp-user-defined 115) (80 (gnus-pick-line-number) 100) (66 
gnus-tmp-thread-tree-header-string 115) (user-date (gnus-user-date 
(mail-header-date gnus-tmp-header)) 115)))
  gnus-parse-format("%1{%U%R%O %4k%} 
%3{%&user-date;%*%uj│%}%I%(%-16,16..." ((78 (mail-header-number 
gnus-tmp-header) 100) (83 (mail-header-subject gnus-tmp-header) 115) 
(115 gnus-tmp-subject-or-nil 115) (110 gnus-tmp-name 115) (65 (car (cdr 
(funcall gnus-extract-address-components gnus-tmp-from))) 115) (97 (or 
(car (funcall gnus-extract-address-components gnus-tmp-from)) 
gnus-tmp-from) 115) (70 gnus-tmp-from 115) (120 (mail-header-xref 
gnus-tmp-header) 115) (68 (mail-header-date gnus-tmp-header) 115) (100 
(gnus-dd-mmm (mail-header-date gnus-tmp-header)) 115) (111 
(gnus-date-iso8601 (mail-header-date gnus-tmp-header)) 115) (77 
(mail-header-id gnus-tmp-header) 115) (114 (mail-header-references 
gnus-tmp-header) 115) (99 (or (mail-header-chars gnus-tmp-header) 0) 
100) (107 (gnus-summary-line-message-size gnus-tmp-header) 115) (76 
gnus-tmp-lines 115) (90 (or (nnselect-article-rsv (mail-header-number 
gnus-tmp-header)) 0) 100) (71 (or (nnselect-article-group 
(mail-header-number gnus-tmp-header)) "") 115) (103 (or 
(gnus-group-short-name (nnselect-article-group (mail-header-number 
gnus-tmp-header))) "") 115) (79 gnus-tmp-downloaded 99) (73 
gnus-tmp-indentation 115) (84 (if (= gnus-tmp-level 0) "" (make-string 
(frame-width) 32)) 115) (82 gnus-tmp-replied 99) (91 
gnus-tmp-opening-bracket 115) (93 gnus-tmp-closing-bracket 115) (62 
(make-string gnus-tmp-level 32) 115) (60 (make-string (max 0 (- 20 
gnus-tmp-level)) 32) 115) (105 gnus-tmp-score 100) (122 
gnus-tmp-score-char 99) (86 (gnus-thread-total-score (and (boundp 
'gnus-tmp-thread) (car gnus-tmp-thread))) 100) (85 gnus-tmp-unread 99) 
(102 (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header 
gnus-tmp-from) 115) (116 (gnus-summary-number-of-articles-in-thread (and 
(boundp 'gnus-tmp-thread) (car gnus-tmp-thread)) gnus-tmp-level) 100) 
(101 (gnus-summary-number-of-articles-in-thread (and (boundp 
'gnus-tmp-thread) (car gnus-tmp-thread)) gnus-tmp-level t) 99) (117 
gnus-tmp-user-defined 115) (80 (gnus-pick-line-number) 100) (66 
gnus-tmp-thread-tree-header-string 115) (user-date (gnus-user-date 
(mail-header-date gnus-tmp-header)) 115)) t)
  gnus-update-format-specifications(nil summary summary-mode summary-dummy)
  gnus-summary-setup-buffer("nnimap+posteo:INBOX")
  gnus-summary-read-group-1("nnimap+posteo:INBOX" (4) t nil nil nil)
  gnus-summary-read-group("nnimap+posteo:INBOX" (4) t nil nil nil nil)
  gnus-group-read-group((4) t)
  gnus-group-select-group((4))
  funcall-interactively(gnus-group-select-group (4))
  call-interactively(gnus-group-select-group nil nil)
  command-execute(gnus-group-select-group)


> The %1, %3, and %5 refer to faces used by the summary line.

> As always in Emacs, "help" is your friend.  Try "M-x describe-variable" for 
> each of those two variables above.

I checked that, but I don´t know at the moment what to change in face 5.


Gottfried


Am 21.01.25 um 09:34 schrieb Eric S Fraga:
> I have the following:
>
> --8<---------------cut here---------------start------------->8---
> (setq gnus-user-date-format-alist '(((gnus-seconds-today) . " %k:%M")
>                                      ((+ (gnus-seconds-today) (* 24 3600)) . " %l 
> %p")
>                                      (604800 . "   %a")
>                                      (31536000 . "%e %b")
>                                      (t . "  %Y")))
> (setq gnus-summary-line-format "%1{%U%R%O %4k%} 
> %3{%&user-date;%*%uj│%}%I%(%-16,16f%) %5{%s%}\n")
> --8<---------------cut here---------------end--------------->8---
>
> which presents the date in more refined detail the newer the post is.
> Very old posts show just the year; newer ones the month and day; even
> newer the day and time; and the newest with the time alone.
>
> The %1, %3, and %5 refer to faces used by the summary line.
>
> As always in Emacs, "help" is your friend.  Try "M-x describe-variable"
> for each of those two variables above.

OpenPGP_0x61FAF349C9FB7F94.asc
Description: OpenPGP public key

OpenPGP_signature.asc
Description: OpenPGP digital signature