Re: Grabbing the link to a message on the archive

[Timothy <tecosaur@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 1071 bytes --]

Hi Greg,

> i love the searching on list.orgmode.org, but i have this recurrent
> dream: that some day each e-mail message will come with a header listing
> the URL for that message on <https://list.orgmode.org>.  (though i also
> worry this might open us up to some sort of spam, or other, attack?)
>
> and, i’ll add my thanks and congratulations on 9.5!
>
> cheers, Greg

If you use mu4e, the following may be of some interest:
┌────
│ (defun +mu4e-ml-message-link (msg)
│   (cond
│    ((string= "emacs-orgmode.gnu.org" (mu4e-message-field msg :mailing-list))
│     (message "Link %s copied to clipboard" (gui-select-text (format "https://list.orgmode.org/%s" (mu4e-message-field msg :message-id)))))
│    (t (user-error "Mailing list %s not supported" (mu4e-message-field msg :mailing-list)))))
│ (add-to-list 'mu4e-view-actions (cons "link to message ML" #'+mu4e-ml-message-link t))
└────

I expect this could be adapted to other clients (notmuch, gnus, etc.)
without much trouble :)

All the best,
Timothy

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: Type: text/org, Size: 1287 bytes --]

#+OPTIONS: html-postamble:nil H:5 num:nil ^:{} toc:nil author:nil email:nil tex:dvipng d:nil
#+STARTUP: hidestars indent inlineimages
:PROPERTIES:
:reply-to: nil
:attachment: nil
:alternatives: (utf-8 org)
:END:

Hi Greg,

> i love the searching on list.orgmode.org, but i have this recurrent
> dream: that some day each e-mail message will come with a header listing
> the URL for that message on https://list.orgmode.org.  (though i also
> worry this might open us up to some sort of spam, or other, attack?)
>
> and, i'll add my thanks and congratulations on 9.5!
>
> cheers, Greg

If you use mu4e, the following may be of some interest:
#+begin_src elisp
(defun +mu4e-ml-message-link (msg)
  (cond
   ((string= "emacs-orgmode.gnu.org" (mu4e-message-field msg :mailing-list))
    (message "Link %s copied to clipboard" (gui-select-text (format "https://list.orgmode.org/%s" (mu4e-message-field msg :message-id)))))
   (t (user-error "Mailing list %s not supported" (mu4e-message-field msg :mailing-list)))))
(add-to-list 'mu4e-view-actions (cons "link to message ML" #'+mu4e-ml-message-link t))
#+end_src

I expect this could be adapted to other clients (notmuch, gnus, etc.)
without much trouble :)

#+begin_signature
All the best,\\
@@html:<b>@@Timothy@@html:</b>@@
#+end_signature