Uwe Brauer via "Announcements and discussions for GNUS, the GNU Emacs
Usenet newsreader (in English)" writes:
>>>> "AadfGtGEUn(E" == Announcements and discussions for GNUS, the GNU
>> Emacs Usenet newsreader (in English) writes:
>
>> Hi
>
>> I am looking for a package that would allow me add annotations to
>> messages (and might serve those annotations locally in my home
>> directory)
>
>> Like
>
>> * []{ }O +160533 [ Uwe Braue] Uwe Brauer [bio mod2 ] Mon, 19 May
>> 2025 09:07:44 +0200 0.3M 6
>
>> * is the annoation containting.
>
>> Urgent: you need to send also mod1.
>
>
> I found a solution:
>
> (defvar my-gnus-annotations (make-hash-table :test 'equal)
> "Hash table of GNUS annotations keyed by article number.")
>
> (defvar my-gnus-annotations-file (expand-file-name
> "~/.emacs.d/gnus-annotations.el") "File to save GNUS annotations.")
Why not use (info "(gnus) Store arbitrary data") for this part?
Also, here's something (stolen long ago from github.com/jwiegley) for
more inspiration:
--8<---------------cut here---------------start------------->8---
;; Tooltip email address display
(defun my/gnus-balloon-face-0 (window object position)
(with-current-buffer object
(let* ((article (get-text-property position 'gnus-number))
(head (gnus-data-header (gnus-data-find article)))
(from-address (cadr (gnus-extract-address-components
(mail-header-from head)))))
(format "%s" from-address))))
(setq gnus-balloon-face-0 'my/gnus-balloon-face-0)
--8<---------------cut here---------------end--------------->8---
I've also heard of the possibly related (describe-package 'gnorb).
--
