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

[Junichiro Kita]

こんにちは．
喜多＠NTTデータです．

shuuic-k> >Mule for Win32では駄目なのかと一度はあきらめたのですが、
shuuic-k> >[Mew-dist 2803]をみて再度挑戦。
shuuic-k> >  http://wombat.doc.ic.ac.uk/emacs/browse-url.el をGETして、
shuuic-k> >持っていた browse-url.elと全然違うようなので、これを byte-compileしま
shuuic-k> >した。
shuuic-k> 
shuuic-k> この byte-compile がマズいようです。byte-compile すると「知らない
shuuic-k> 関数がある」と言われてますので(.elc はできていますけど)、その関係
shuuic-k> ではないかと思います。byte-compile しなければ Mule for Win32 でも
shuuic-k> 動作しました。

私が使ってるのは，Gnus-5.0.15 についてる browse-url.el ですが，バイト
コンパイルしても何の問題もなく使えてます．
設定は次のようにしてます．

(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)

(global-set-key [S-mouse-2] 'browse-url-at-mouse)

(setq browse-url-browser-function 'browse-url-start)
(defun browse-url-start (url &optional new-window)
   (interactive (browse-url-interactive-arg "URL: "))
   (message "Opening URL...")
   (apply 'start-process "start" nil "start" (list url)))
(add-hook 'mew-message-mode-hook
	  '(lambda ()
	     (define-key mew-message-mode-map
	       [mouse-2] 'browse-url-at-mouse)))