[Mew-dist 08696] use mew-mailto.el with browse-url.el

[Umekichi]

contrib に入っている mew-mailto.el ですが
(Sen Nagata <sen at example.com>さんが送られたものですね)、
browse-url.el と一緒に使いにくかったため、
patch を作ってみました(ダミーの変数を与えただけですが)。

この patch をあてて、mew-mailto.el, mailto.el を
Emacs Lisp ファイルを置くべき位置に置いて、
.emacs に

(setq browse-url-browser-function
      '(("^mailto:" . mew-mailto-compose-message-from-mailto-url)
	("." . browse-url-netscape)))

などと書いておいたところ、mailto:XXX の URL のときは mew が、
それ以外の URL のときは netscape が起動するようになりました。
(Emacs 20.3 だけかも。)
[[梅吉]]
-------------- next part --------------
*** mew-mailto.el	Sun May  2 14:31:57 1999
--- mew-mailto.el.org	Sun May  2 14:31:57 1999
***************
*** 207,213 ****
       (mew-draft-mode))))
  
  ;; prepare a message from a mailto: url
! (defun mew-mailto-compose-message-from-mailto-url (url &optional dummy)
    (interactive "sURL: ")
    (if (string-match mailto-url-regexp url)
        (mew-mailto-summary-send (mailto-parse-url url))
--- 207,213 ----
       (mew-draft-mode))))
  
  ;; prepare a message from a mailto: url
! (defun mew-mailto-compose-message-from-mailto-url (url)
    (interactive "sURL: ")
    (if (string-match mailto-url-regexp url)
        (mew-mailto-summary-send (mailto-parse-url url))