[Mew-Win32 00168] Re: fiber & browse-url

[Hideyuki SHIRAI]

白井です。ひとつ提案なんですが…

From: Shuichi Kitaguchi <shuuic-k at example.com> さん曰く
Subject: [Mew-Win32 00166] Re: fiber & browse-url
Message-ID: <19980202175257L.shuuic-k at example.com>
Date: Mon, 2 Feb 1998 17:53:07 +0900

shuuic-k> (add-hook 'mew-init-hook
shuuic-k> 	  (lambda ()
shuuic-k> 	    (progn 
shuuic-k> 	      (define-key mew-message-mode-map [mouse-3] 'browse-url-at-mouse)
shuuic-k> 	      )))
shuuic-k> 
shuuic-k> を mew-win32.el に追加しておこうかと思っています。こうしておけば、
shuuic-k> Meadow では何も設定せずに動きますので。

browse-url-at-mouseって、例えばdraft-modeでも『あれ？ このURLで
いいんだっけな？』とかやったり、text-modeで人様のドキュメントか
ら呼んだり、自分でHTML書いたりしているときも、ちょっと見るのにと
ても便利なので、

mew-init-hookじゃなくて、ど〜〜んと
(define-key global-map [S-mouse-2] 'browse-url-at-mouse)
                        ~~~~~~~~~ 任意のボタン
にしてしまうのはどうですか？(やりすぎかなぁ？)

# たしか、browse-urlをloadしただけじゃ、mouseには割り当てられな
# いですよね？


あと、今回のスレッドを読んでいて思いついたのですが、こんなのいかがでしょう？
大昔書いたものなのですが、個人的にはとても気にいってます。
(defun netscape)はfiberでいいと思います。

# 弱点は、Message-ID上でクリックしてもmew-sendが立ち上がることです (^^;;;
## だけど、前ページの様にglobal-mapに登録すると、いつでもどこでも
## mew-sendが立ち上がる魅力には勝てません。

(setq browse-url-regexp "\\(\\([^\-A-Za-z0-9:\/\.\_\!]\\|^\\)[A-Za-z0-9][\-A-Za-z0-9\.\_\!]+@[A-Za-z0-9][\-A-Za-z0-9\.\_\!]+[A-Za-z0-9]\\)\\|\\(\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]+\\)")

(setq browse-url-browser-function 'browse-url-netscape-mew)
(defun browse-url-netscape-mew (url)
  (interactive)
  "the NetScape or mew-send."
  (message "Starting Netscape... or mew-send...")
  (cond
   ((string-match "^mailto:" url)
    (mew-send (substring url 7 nil)))
   ((string-match "[:\/]" url)
    (netscape url))
   ((string-match "^[A-Za-z0-9]" url)
    (mew-send url))
   (t (mew-send (substring url 1 nil)))))

(defun netscape (url)
  "NetScape!!"
  (interactive "surl: ")
  (if (string-match "^$" url)
      (apply 'start-process "netscape" nil
	     "c:/APR/NETSCAPE/Program/netscape.exe" nil)
    (apply 'start-process "netscape" nil
	 "c:/APR/NETSCAPE/Program/netscape.exe" (list url))))

--
白井秀行 (Hideyuki SHIRAI)