Re: Open mailto links

[Tassilo Horn <tassilo@member.fsf.org>]

henry atting <nospam@literaturlatenight.de> writes:

Hi Henry,

> #!/bin/sh
> /usr/bin/emacsclient -e "(message-mail \"$1\")"

I use a similar script but with `th-message-mail'.  Its definition is:

--8<---------------cut here---------------start------------->8---
(defun th-message-mail (mailto-url)
  "Parse MAILTO-URL and invoke `message-mail'."
  (let (to subject cc bcc)
  (dolist (header (split-string mailto-url "[?&]"))
    (cond
     ((string-match "mailto:" header)
      (setq to (substring header (match-end 0))))

     ((string-match "Cc=" header)
      (setq cc (substring header (match-end 0))))

     ((string-match "Bcc=" header)
      (setq bcc (substring header (match-end 0))))
     
     ((string-match "Subject=" header)
      (setq subject (substring header (match-end 0))))))
  (message-mail to subject (list (cons "Cc" cc) (cons "Bcc" bcc)))))
--8<---------------cut here---------------end--------------->8---

Hope that helps,
Tassilo