Re: adding date to the summary buffer

[Gottfried]

Hi,

thanks

now comes up another Lisp error:

Debugger entered--Lisp error: (void-function gnus-user-format-function-j)
  (gnus-user-format-function-j gnus-tmp-header)
  (insert (gnus-user-format-function-j gnus-tmp-header) "│")
  (progn (insert (gnus-user-date (mail-header-date gnus-tmp-header))) 
(setq gnus-position (point)) (insert (gnus-user-format-function-j 
gnus-tmp-header) "│") (point))
  (add-text-properties (point) (progn (insert (gnus-user-date 
(mail-header-date gnus-tmp-header))) (setq gnus-position (point)) 
(insert (gnus-user-format-function-j gnus-tmp-header) "│") (point)) 
(cons 'face (cons (list 'bold 'default) '(gnus-face t))))
  (let (gnus-position) (add-text-properties (point) (progn (insert 
(format "%c%c%c %4s" gnus-tmp-unread gnus-tmp-replied 
gnus-tmp-downloaded (gnus-summary-line-message-size gnus-tmp-header))) 
(point)) (cons 'face (cons (list 'italic 'default) '(gnus-face t)))) 
(insert " ") (add-text-properties (point) (progn (insert (gnus-user-date 
(mail-header-date gnus-tmp-header))) (setq gnus-position (point)) 
(insert (gnus-user-format-function-j gnus-tmp-header) "│") (point)) 
(cons 'face (cons (list 'bold 'default) '(gnus-face t)))) (insert 
gnus-tmp-indentation) (put-text-property (point) (progn (insert (format 
"%-16s" (let* ((val ...) (need ...)) (if (> need 0) (concat nil val ...) 
val)))) (point)) 'mouse-face gnus-mouse-face) (insert " ") 
(add-text-properties (point) (progn (insert gnus-tmp-subject-or-nil) 
(point)) (cons 'face (cons (list 'gnus-button 'default) '(gnus-face 
t)))) (insert "\n") (if gnus-position (put-text-property gnus-position 
(1+ gnus-position) 'gnus-position t)))
  gnus-summary-prepare-threads((... ... ... ... ... ... ... ... ... ... 
... ... ... ... ...))
  gnus-summary-prepare()

gnus-summary-read-group-1("nntp+news.eternal-september.org:alt.comp.software...." 
nil t nil nil nil)

gnus-summary-read-group("nntp+news.eternal-september.org:alt.comp.software...." 
nil t nil nil nil nil)
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  funcall-interactively(gnus-group-select-group nil)
  call-interactively(gnus-group-select-group nil nil)
  command-execute(gnus-group-select-group)


my gnus.el:

(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")
(setq gnus-face-5 'gnus-button)



Gottfried


Am 21.01.25 um 12:54 schrieb Fraga, Eric:
> Response below/inline for email Gottfried wrote:
> > (original email sent 21 Jan 2025 at 11:48)
> >
> > HI,
> >
> > thanks to all for help
> >
> > using your proposal says:
> >
> > Debugger entered--Lisp error: (void-variable gnus-face-5)
>
> > I checked that, but I don´t know at the moment what to change in face 5.
>
> You may have to define the faces for gnus, e.g.:
>
>    (setq gnus-face-5 'gnus-button)
>
> I.e. set the face to an existing one that matches what you want
>
>    M-x list-faces-display RET
>
> or create your own face if you wish.

OpenPGP_0x61FAF349C9FB7F94.asc
Description: OpenPGP public key

OpenPGP_signature.asc
Description: OpenPGP digital signature