Re: Gnus: How to reference an article from a gmane mailing list

["H. Dieter Wilhelm" <dieter@duenenhof-wilhelm.de>]

Kévin Le Gouguec <kevin.legouguec@gmail.com> writes:

> Then type in this search string:
>
> +message-id:<6214117000e144ffaeceded74c239fb8@frb.gov>

I didn't realise that one is able to do a dedicated search for these
IDs! Thanks a lot.

>> Oh wait!  What about Gmail or other mail readers of Emacs, do they have
>> this functionality as well?
>
> Can't tell you 😕 I'd be very (though pleasantly) surprised if GMail
> could work with Message IDs; as for other mail readers, I just don't
> know.

> … to provide convenient links for everyone, regardless of their mail
> client.  As I said though, for some reason they don't work anymore; I'd
> need to debug them 😒

> #+begin_src elisp
> ;; Utilities for mailing lists.
> (defun my/kill-message-id ()
>   (interactive)
>   (kill-new (mail-header-message-id (gnus-summary-article-header))))
>
> (defun my/describe-message (id url)
>   (kill-new (format "%s\n%s\n"
>                     (if (string-prefix-p "<" id)
>                         id
>                       (format "<%s>" id))
>                     url)))
>
> (defun my/describe-message-id (list id)
>   "Format references from the Message-ID of a gnu.org list."
>   (interactive
>    (list
>     (read-string "List: ")            ; TODO: default to current list.
>     (let ((default-id
>             (mail-header-message-id (gnus-summary-article-header))))
>       (read-string (format-prompt "Message-ID" default-id)
>                    nil nil default-id))))
>   (with-current-buffer
>       (url-retrieve-synchronously
>        (concat
>         ;; For some reason, literal "+" chars cause the search to fail.
>         ;; Escape them.
>         "https://lists.gnu.org/archive/cgi-bin/namazu.cgi"
>         "?query=%2Bmessage-id:"
>         (replace-regexp-in-string "\\+" "%2B" id)
>         "&submit=Search!"
>         "&idxname=" list))
>     (search-forward-regexp
>      (rx "<a href=\""
>          (group "/archive/html/" (literal list) "/"
>                 (+ (any "0-9-")) "/msg" (+ (any "0-9")) ".html")
>          "\">"))
>     (let ((url (concat "https://lists.gnu.org" (match-string 1))))
>       (my/describe-message id url))))
>
> (defun my/describe-message-url (url)
>   "Format references from an article archived on MHonArc."
>   (interactive
>    (list
>     (let ((default (or (thing-at-point 'url)
>                        (and (derived-mode-p 'eww-mode)
>                             (shr-url-at-point nil)))))
>       (read-string (format-prompt "URL" default) nil nil default))))
>   (with-current-buffer (url-retrieve-synchronously url)
>     (search-forward-regexp "^<!--X-Message-Id: \\(.+\\) -->$")
>     (let ((id (xml-substitute-numeric-entities (match-string 1))))
>       (my/describe-message id url))))
> #+end_src

Interesting what people are able to do!  Thanks for the idea

            Dieter


-- 
Best wishes
H. Dieter Wilhelm
Zwingenberg, Germany