[O] Linking to Thunderbird

[Christoph Herzog]

Today I discovered a really practical add-on for Thunderbird that solved 
my problem of how to linking to a mail in Thunderbird:

https://addons.mozilla.org/de/thunderbird/addon/thunderlink/

(It requires some modification of the mimetypes on your system as 
described in the documentation.)
Next, I set up a file org-thunderlink.el to register the link in orgmode.
The code is not more than this:


(require 'org)

(org-add-link-type "thunderlink" 'org-thunderlink-open)

(defun org-thunderlink-open (path)
  "Opens  a specified email in Thunderbird with the help of the add-on 
ThunderLink."
  ;(message-box path)
  (start-process "myname" nil "xdg-open" (concat "thunderlink:" path)))

(provide 'org-thunderlink)


It works mostly except when Thunderbird is not running and for some 
emails whose id start with a number (but I have to check out).

I would be interested in feedback if someone improves the code above to 
make it right: I'm aware that, as I am not an Elisp programmer, the code 
above is probably not the way to do it. :-)