zimoun <zimon.touto...@gmail.com> writes: > And <https://yhetil.org> serves the mapping via public-inbox. > Concretely, I do ’cl’ (notmuch-show-stash-mlarchive-link) reading your > message, select the archive and I get: > > <https://yhetil.org/guix-user/87pn4ca1c7....@ambrevar.xyz> > > Select the archive because by default it is linux-kernel related > archives: LKML, MARC, etc. even if I do not know about Gmane. My config > is: > > --8<---------------cut here---------------start------------->8--- > ;; c l stashes a hyperlink using Message-ID instead of numbering, e.g.: > ;; > https://yhetil.org/guix-user/acba4413-a4ca-d7e5-08f7-24ac9839b...@posteo.de > ;; vs https://lists.gnu.org/archive/html/help-guix/2020-10/msg00177.html > (mapcar (lambda (what) > (add-to-list 'notmuch-show-stash-mlarchive-link-alist > `(,what . ,(concat "https://yhetil.org/" what "/")))) > (reverse'("guix-devel" > "guix-user" > "guix-science" > "gwl" > "guix-bugs" > "guix-patches"))) > --8<---------------cut here---------------end--------------->8--- > > (Instead of manually selecting the archive, an helper function could > parse the header fields and do the job but I have not been annoyed > enough yet. :-))
At your service: --8<---------------cut here---------------start------------->8--- (defvar ambrevar/known-mailing-list-archives '(("help-guix@gnu.org" . "guix-user") ("guix-de...@gnu.org" . "guix-devel") ("guix-bugs" . "guix-bugs") ("guix-patches" . "guix-patches")) "Alist of mail adresses and their Yhetil name.") (defun ambrevar/guess-yhetil-link (message-id) (let* ((all-addresses (mapcar #'second (mail-extract-address-components (mapconcat #'identity (list (notmuch-show-get-header :To) (notmuch-show-get-header :Cc)) ", ") 'all))) (mailing-list (cdr (seq-find (lambda (pair) (member (car pair) all-addresses)) ambrevar/known-mailing-list-archives)))) (when mailing-list (concat "https://yhetil.org/" mailing-list "/" message-id)))) (add-to-list 'notmuch-show-stash-mlarchive-link-alist (cons "Yhetil" #'ambrevar/guess-yhetil-link)) --8<---------------cut here---------------end--------------->8--- I had to create an alist to map between the address of the mailing list and the Yhetil name because in the case of guix-user, the address is not the same (help-guix). I wonder why. Cheers! -- Pierre Neidhardt https://ambrevar.xyz/
signature.asc
Description: PGP signature