Open mailto links

Open mailto links

[henry atting]

Within iceweasel I open mailto links with this small script:

--8<---------------cut here---------------end--------------->8---

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

--8<---------------cut here---------------end--------------->8---

It works but the address is filled in with `mailto` preceeded, like
this:
                mailto: a@address.fl

It's same when I click on a mailto within emacs-w3m.

Any hints?

Cheers
henry

Re: Open mailto links

[Vyazovoi Pavel]

At Thu, 04 Sep 2008 16:41:17 +0200,
henry atting wrote:

Something like this:

(defun my-message-mail (mail)
"my message-mail alternative"
(if (< (length (split-string mail "subject=")) 2)
(message-mail (nth 1 (split-string mail ":")))
(message-mail (nth 1 (split-string mail "[:?]")) (nth 1 (split-string mail "subject=")))))

> 
> Within iceweasel I open mailto links with this small script:
> 
> --8<---------------cut here---------------end--------------->8---
> 
> #!/bin/sh
> /usr/bin/emacsclient -e "(message-mail \"$1\")"
> 
> --8<---------------cut here---------------end--------------->8---
> 
> It works but the address is filled in with `mailto` preceeded, like
> this:
>                 mailto: a@address.fl
> 
> It's same when I click on a mailto within emacs-w3m.
> 
> Any hints?
> 
> Cheers
> henry
> 

Re: Open mailto links

[Tassilo Horn]

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

Re: Open mailto links

[Thierry Volpiatto]

Hi,
I use that:

,----
| /usr/bin/emacsclient -e "(message-mail (substring \"$1\" 7))"
`----


henry atting <nospam@literaturlatenight.de> writes:

> Within iceweasel I open mailto links with this small script:
>
>
> #!/bin/sh
> /usr/bin/emacsclient -e "(message-mail \"$1\")"
>
>
> It works but the address is filled in with `mailto` preceeded, like
> this:
>                 mailto: a@address.fl
>
> It's same when I click on a mailto within emacs-w3m.
>
> Any hints?
>
> Cheers
> henry
>

-- 
A + Thierry Volpiatto
Location: Saint-Cyr-Sur-Mer - France

Re: Open mailto links

[henry atting]

Great thanks!
Now I only have to ponder which solution I use permanetly. ;)

In terms of emacs-w3m the culprit was this setting:

   w3m-mailto-url-function 'compose-mail

Cheers
henry

Re: Open mailto links

[Richard G Riley]

henry atting <nospam@literaturlatenight.de> writes:

> Within iceweasel I open mailto links with this small script:
>
>
> #!/bin/sh
> /usr/bin/emacsclient -e "(message-mail \"$1\")"
>

I use te following in the application path for mailto URLs in Firefox:

,----
| gnus-mailto.sh
`----

where gnus-mailto.sh is the following on my path:

,----
| #!/bin/sh
| # gnus-mailto.sh
| wmctrl -a emacs22
| source ~/bin/emacs.bash
| edit --eval "(progn (johnsu01/mailto \"$1\"))" 
`----

(wmctrl brings emacs into focus on linux/X)

and edit is defined in emacs.bash which ships with emacs 22:

,----
| function edit ()
| {
|  local windowsys="${WINDOW_PARENT+sun}"
| 
|  windowsys="${windowsys:-${DISPLAY+x}}"
| 
|  if [ -n "${windowsys:+set}" ]; then
|     # Do not just test if these files are sockets.  On some systems
|     # ordinary files or fifos are used instead.  Just see if they exist.
|     if [ -e "${HOME}/.emacs_server" -o -e "/tmp/emacs${UID}/server" ]; then
|        emacsclient "$@"
|        return $?
|     else
|        echo "edit: starting emacs in background..." 1>&2
|     fi
| 
|     case "${windowsys}" in
|       x ) (emacs "$@" &) ;;
|       sun ) (emacstool "$@" &) ;;
|     esac
|  else
|     if jobs %emacs 2> /dev/null ; then
|        echo "$(pwd)" "$@" >| ${HOME}/.emacs_args && fg %emacs
|     else
|        emacs "$@"
|     fi
|  fi
| }
`----


John Sullivans code is the following in my .emacs:

,----
| (defun johnsu01/mailto (url)
|   "Follow a mailto URL as passed from Iceweasel, prompting for a posting style."
|   (unless(gnus-alive-p)
|     (gnus))
| 
|   (message "Url is : %s" url)
| 
|   (let ((gnus-newsgroup-name
|          (completing-read "Use posting style of group: "
|                           gnus-active-hashtb nil
|                           (gnuOBs-read-active-file-p) "rileyrg")))
|     (setq url (url-unhex-string url))
|     (browse-url-mail url))
|   ;; message-mail does not do anything with the body argument, so we have to.
|   (if (string-match (regexp-quote "?") url)
|       (let* ((start (match-end 0))
|              (args (url-parse-query-string
|                     (substring url start nil)))
|              (body (cadr (assoc-string "body" args t))))
|         (when body
|           (switch-to-buffer (car (message-buffers)))
|           (save-excursion
|             (message-goto-body)
|             (insert body)))))
|   )
`----

And this prompts you for which gnus-posting-style to use.

Works really well if you have multiple posting styles.