Hasty copy and paste leads to errors :-( This is the defun I wanted to
paste:
(defun thunderblink-open (path _)
"Open thunderbird with mail-id indicated in path. Remove angle
brackets if present"
(let ((clean-path (replace-regexp-in-string "[<>]" "" path)))
(start-process "thunderbird" nil "thunderbird" (concat "mid:"
clean-path))))
On 5/26/25 17:24, Christoph wrote:
Hi,
the thunderbird addons thunderlink and cb_thunderlink do not work
anymore for thunderbird 138. There is, however, an alternative; cf. here:
https://www.reddit.com/r/Thunderbird/comments/pb6sif/
creating_a_link_to_an_email_in_thunderbird/
It requires no thunderbird add-on which is an additional benefit but
simply works by calling thunderbird with the commandline parameter
mid:my_message_id
where my_message_id is the unique id that thunderbird gives to each mail
(without the angle brackets!).
So, a simple registration for following the link could look like this
(sry for that, but my knowledge of Elisp is still very rudimentary, even
for that much I needed AI help; I'd be grateful for any improvement of
the code):
(org-link-set-parameters "thunderblink"
:follow #'thunderblink-open)
(defun thunderblink-open (path _)
"Open thunderbird with mail-id indicated in path. Remove angle
brackets if present"
(defun thunderblink-open (path _)
(let ((clean-path (replace-regexp-in-string "[<>]" "" path)))
(start-process "thunderbird" nil "thunderbird" (concat "mid:"
clean-path))))
