Re: browse-url.el for Meadow-1.05b1

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

白井＠書こうと思ったこと(というか書いていたこと)は圭一さんに先を
      越されてしまったので。

From: Yuh Ohmura <yutopia@xxxxxxxxxxxx> さん曰く
Subject: Re: browse-url.el for Meadow-1.05b1
Message-ID: <199908030646.PAA20070@xxxxxxxxxxxxxxxxx>
Date: Tue, 3 Aug 1999 15:46:45 +0900 (JST)

大村> > ## Mew + mew-browse.el に乗り換えるとか。。 :-)
大村> 
大村> これはもう、好みの問題なので...
大村> cmailの方が肌に合っているものですから。

あぅ、ごめんなさい。これは冗談ですので (__)
どっちにしろ fiber.exe http://hoge/ ができないとダメだし。

以下、本題。

大村> > 大村> 私の環境では fiber がうまくブラウザを立ち上げてくれないので、
大村> > 
大村> この質問と同様の質問を私も以前に投げたことがあり、問題がWindows
大村> 側にあることはすでに認識してます。
大村> 
大村> その時の対応内容で1.00では動作していたのですが、1.05b1では動作
大村> しなくなったという意味です。

えっと、*そのときの対応* というのが何のことかわからないので、ま
たはずしているかもしれないのですが、私といっしょに
fiber http://hoge/ が動かなくて悩んでいた人でこういう人もいまし
たという例を一つ。。。(Win95 です)

某氏> ＜やったこと＞
某氏> 1. Explore中の「ツール」->「オプション」を何度も書き換え -> NG
某氏> 2. Installされている Netscape 4.04 と IE3.02 を交互に起動し「通常使う
某氏>    ブラウザに登録」しては、ファイルタイプを確認し、start http://xxxを
某氏>    試みるが進歩なし。
某氏> 3. Netscape 4.04 をアンインストールし、IE3.02のみにしてみるが -> NG
某氏> 4. IE3.02 もアンインストールし、一度ブラウザをすべて削除
某氏> 5. Netscape 4.04 をインストールしてみるが -> NG
某氏> 6. さらに IE 4.0 をインストールしたところ、start http://xxx/ が起動!
某氏> 7. mew で text/html と browse-url-or-mew (fiber経由) の動作確認OK!
某氏> 8. Netscape4.04 を「通常使うブラウザ」に登録変更。
某氏> 9. 7と同様、mew からブラウザ起動!!!!!!!!
某氏> 10.Exploreで「ツール」->「オプション」から「URL:HTTP」の項目を選ぶと、
某氏>       実行アプリケーション： C:\....\NETSCAPE.EXE -h "%1"
某氏>       DDEメッセージ       ： %1
某氏>       アプリケーション    ： NSShell
某氏>       トピック            ： WWW_OpenURL
某氏>    となっている。
某氏> 
某氏> 何れにしても、経過から言うと、IE4.0をインストールしたことがトリガーと
某氏> なってうまく行くようになったようです
某氏> ＃なんか皮肉......

ちなみに、start http://hoge/ は OK だけど、fiber http://hoge/ は
NG だとすると

onion[~]% fiber -l

 OPTION            = VALUE
---------------------------
 ExtNum            = 64
 ExecuteUnknownExt = no
 ExecuteURL        = yes <== これ
 TrustExt          = yes
 OverrideExt       = yes

って表示されますか？ no なら "fiber -o ExecuteURL=yes" です。

また、冗談で書いた以下の elisp は今試したら動いているのでご参考
までに。

(setq ie-prog "C:/Program Files/Plus!/Microsoft Internet/IEXPLORE.EXE")

(defun ie (url)
  (interactive "surl: ")
  (let ((w32-start-process-show-window t))
    (if (not (string-match "^\\(http:\\|ftp:\\)" url))
	(setq url "http://sugar.rdmg.mgcs.mei.co.jp/~shirai"))
    (message "Internet Explore %s." url)
    (apply 'start-process "ie" nil ie-prog (list url))))

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)