[Mew-dist 2803] Re: patch for external program

[Y.Sakamoto/ 坂本佳則]

坂本＠奈良県工業技術センターです。

From: Shuichi Kitaguchi <shuuic-k at example.com>
Subject: [Mew-dist 2785] browse-url on Win32.
Date: Wed, 29 Oct 1997 02:58:33 +0900 (JST)

> ちょっぴり現実逃避がてらに Win32 でも browse-url できるようにしました。

現実逃避がうつりました :-P

> ただし Mule for Win32 には標準では browse-url がないので、チェックは
> Meadow でしか行なっていません。

・Mule for Win32 Window Version 1.22 (MOMIJI) of 1997/10/1
  です。
> 
> いるもの:
> ・fiber         0.1.3
> ・mew-win32.el  0.08
> # いつものように、http://www.mew.org/Win32/ に置いてあります。

上記に加え、

http://wombat.doc.ic.ac.uk/emacs/browse-url.el

 を「GET だぜ」します。

> ~/.emacs の設定:
> (autoload 'browse-url-interactive-arg "browse-url")
> (autoload browse-url-browser-function "browse-url"
>   "Ask a WWW browser to show a URL." t)
> (autoload 'browse-url-at-point "browse-url"
>   "Ask a WWW browser to load the URL at or before point." t)
> (autoload 'browse-url-at-mouse "browse-url"
>        "Ask a WWW browser to load a URL clicked with the mouse." t)
> (autoload 'browse-url-of-buffer "browse-url"
>   "Ask a WWW browser to display BUFFER." t)
> (autoload 'browse-url-of-file "browse-url"
>   "Ask a WWW browser to display FILE." t)
> (autoload 'browse-url-of-dired-file "browse-url"
>   "In Dired, ask a WWW browser to display the file named on this line." t)
> (define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
> ;                                       ~
> ;                                        好きなボタン番号でどうぞ。
> 

最後の define-key ですが、

(add-hook 'mew-init-hook
       (lambda ()
	 (progn 
	   (define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
	   )))

 にしないと動きませんでしたが、無事動作しました(^_^)。

 ありがとうございます。幸せになりました。

＿      ＿ 
‖＼    ‖ - Nara Prefectural Institute of Industrial Technology -+
‖ 奈良県工業技術センター 【坂本佳則】<yosino-s at example.com>|
‖    ＼‖ＩＩＴ     Boldly go where no one has gone before....   | 
￣      ￣ -------------------------------------------------------+