Re: [Q] How do I access a message using message id on mailman?

[andrés ramírez]

Hi. Ruijie.

>>>>> "Ruijie" == Ruijie Yu via Users list for the GNU Emacs text editor 
>>>>> <help-gnu-emacs@gnu.org> writes:


[...]


    Ruijie> Any help appreciated, thanks.

This works on my case:

--8<---------------cut here---------------start------------->8---
https://lists.gnu.org/archive/cgi-bin/namazu.cgi?query=%2Bmessage-id%3Asdvleierbgp.fsf%40netyu.xyz&submit=Search%21&idxname=help-gnu-emacs
--8<---------------cut here---------------end--------------->8---

I have a function that does that. based on wanderlust (MUA)

--8<---------------cut here---------------start------------->8---
(defvar my-gmane-lists '(("\"Emacs development discussions.\" 
<emacs-devel.gnu.org>" "emacs-devel" )
                         ("Users list for the GNU Emacs text editor 
<help-gnu-emacs.gnu.org>" "help-gnu-emacs" )
                         ))

;;; based on Kévin Le Gouguec snippet
(defun my/wl-summary-yank-search-url (list id)
  "Format references from the message-id of a gnu.org list.
Used within wanderlust summary buffer for generating an url based on message-id 
and list-id.
Copy the generated url to the kill-ring."
  (interactive
   (list
    (let ((default-list
            (wl-summary-list-id)))
      (read-string (format-prompt "List-ID:" default-list)
                   nil nil default-list)
      (let ((box (assoc default-list my-gmane-lists)))
        (if box
            (setq default-list (cadr box)))))
    (let ((default-id (wl-summary-message-id)))
      (read-string (format-prompt "Message-ID:" default-id)
                   nil nil default-id))))
  (let ( (my-url nil))
    (setq my-url (concat
                  ;; Escape some chars to url format for search to work.
                  "https://lists.gnu.org/archive/cgi-bin/namazu.cgi";
                  "?query=%2Bmessage-id%3A"
                  (replace-regexp-in-string ">" ""
                                            (replace-regexp-in-string "<" ""
                                                                      
(replace-regexp-in-string "@" "%40"
                                                                                
                (replace-regexp-in-string "\\+" "%2B" id))))
                  "&submit=Search%21"
                  "&idxname=" list))
    (kill-new my-url)
 ;;;(message "Copied: %s" my-url)
    ))
--8<---------------cut here---------------end--------------->8---

Best Regards.
ps: It just works on emacs-help cos search on emacs-devel is broken