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) "│")

  gnus-summary-prepare()




  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")

                                    (604800 . "   %a")
                                    (31536000 . "%e %b")
                                    (t . "  %Y")))

(setq gnus-face-5 'gnus-button)



Gottfried


Am 21.01.25 um 12:54 schrieb Fraga, Eric:

(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-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-seconds-today) (* 24 3600)) . " %l %p") (setq gnus-summary-line-format "%1{%U%R%O %4k%} %3{%&user-date;%*%uj│%}%I%(%-16,16f%) %5{%s%}\n")

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