Find article permalink in archive.

Find article permalink in archive.

[Oleksandr Gavenko]

I have:

  (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At:"))

and as I read all lists mostly from Gmane it gives me permalink for saving for
further reference.

Gmane shut down Web interface and these links are no longer worked.

As alternative I wrote:

--8<---------------cut here---------------start------------->8---
(defun my/gnus-search-web-by-message-id ()
  "Search for article archive by Message-Id in Google."
  (interactive)
  (let ( (msgid (message-fetch-field "Message-Id")) (subj (message-fetch-field "Subject")) )
    (setq msgid (replace-regexp-in-string "[<>]" "" msgid))
    (setq subj (replace-regexp-in-string "[\"#]" " " subj))
    (browse-url (format "https://www.google.com.ua/search?q=%s" (url-encode-url (format "%s OR \"%s\"" msgid subj))))
    (browse-url (format "http://mid.mail-archive.com/%s" (url-encode-url msgid)))))
--8<---------------cut here---------------end--------------->8---

But search engines usually fail to find messages.

================================================================

Another approach is to use ``List-Archive`` header, like:

  List-Archive: <http://lists.gnu.org/archive/html/help-gnu-emacs/>

and try to determine list hosting/archiving software (like ``namazu``) and
automatically fill form and browse result in browser.

For example, Namazu has ``+message-id:<...>`` syntax for searching by ``Message-Id``.

It is complicated task. Anyone works on this?

-- 
http://defun.work/