[Mew-dist 08735] Re: use mew-mailto.el with browse-url.el

[Hideyuki SHIRAI ( 白井秀行 )]

From: 小関 吉則 (KOSEKI Yoshinori) <kose at example.com> さん曰く
Subject: [Mew-dist 08730] Re: use mew-mailto.el with browse-url.el
Message-ID: <1999May0767655wt4.kose at example.com>
Date: Fri, 7 May 1999 13:25:39 +0900

小関> mew-mailto.el は使ったことがなかったので検討はずれのことかも
小関> しれませんが。

同じく (__)

小関> Emacs20.3 以降に含まれる browse-url.el では 

小関> browse-url-browser-function's value is 
小関> (("^mailto:" . browse-url-mail)
小関>  ("." . browse-url-w3))

小関> のような設定で mailto: で mail-user-agent で指定された MUA
小関> が起動します。

これだと、Emacs 20.3 以降じゃないと動かなくて寂しいので、最近は
url-mail.el に url-mailto() があるものを対象に
mew-user-agent-compose を使っています。

# それ以前の browse-url は、全然使わなくなったのでめんどくさくて
# 対応していません。

100% ちゃんと動くかどうかは確かめていないんですが、

(setq url-mail-command 'mew-user-agent-compose)
(defadvice url-mailto (after mew-highlight-header activate)
  (save-excursion
    (goto-char (point-min))
    (if (re-search-forward (concat "^"
				   (regexp-quote mew-x-mailer:)
				   " "
				   (regexp-quote mew-x-mailer)
				   "\\(.+\\)$")
			   nil t)
	(progn
	  (goto-char (match-beginning 1))
	  (insert " / ")))
    (if (re-search-forward mew-eoh nil t)
	(progn
	  (beginning-of-line)
	  (set-marker mew-marker-header-end (point))))
    (mew-highlight-header)))

前半は特に必要ないですけど、こういう感じでやっておくと、(ある程
度以降の version の) w3 で mailto: をクリックすると Mew の draft
buffer が立ち上がるので楽しいです。

小関> ;; という話を昔々、白井さんとしたっけ。(  =.=)  遠い目

# *いつでもどこでも mew-send 計画* の一環ですよね。あのときにい
# ろいろ遊んだのが mew-user-agent-compose に反映されてきれいになっ
# てとっても嬉しいです。:-)

-- 
白井秀行 (mailto:shirai at example.com)