[Mew-Win32 03169] Re: mew-browse.el (1.95b121)

[Hideyuki SHIRAI ( 白井秀行 )]

From: Shuichi KITAGUCHI <ki at example.com> さん曰く
Subject: [Mew-Win32 03167] Re: mew-browse.el (1.95b121)
Message-ID: <20010509.005920.01366806.ki at example.com>
Date: Wed, 09 May 2001 00:59:20 +0900 (JST)

白井> この変数は以前は Mew が設定してたのですが b120 で消えました。
白井> 適当に ^^;

白井> (setq mew-ext-prog-url "fiber")

白井> としておいてください。

北口> を以下のようにしてみましたが、どうでしょうか?

Windows で fiber 使っていると(おそらく)なんにも問題なのですが、

北口> --- mew-browse.el.original	Fri Apr 06 16:51:24 2001
北口> +++ mew-browse.el	Wed May 09 00:33:36 2001
北口> @@ -143,16 +143,16 @@
北口>    (cond
北口>     ((string-match "^mailto:" url)
北口>      (mew-browse-url-mailto url))
北口> -   ((and (symbolp mew-ext-prog-url) (fboundp mew-ext-prog-url))
北口> -    (funcall mew-ext-prog-url url))
北口> -   ((equal mew-ext-prog-url "w3")
北口> +   ((equal mew-prog-text/html-ext "w3")
北口>      (require 'w3)


私 UNIX では、

(setq mew-ext-prog-url 'browse-url-netscape)
(setq mew-prog-text/html-ext 'browse-url-of-region)

なのです。だから function call のところは消したくないです。

# 当然 mew-prog-text/html => mew-mime-text/html-w3m ね。

だけど、mew-prog-text/html-ext() は function だと
(funcall mew-prog-text/html-ext (point-min) (point-max))))
として call されるから上記を単純に

((and (symbolp mew-prog-text/html-ext) (fboundp mew-prog-text/html-ext))

とするだけだとダメだし。う〜〜ん、単純に mew-ext-prog-url を
mew-browse.el の中で設定するんじゃだめですか？

名前を変えても良いし。mew-browse-ext-prog とか。

白井> # なんと消したのは私なのだった。^^;;;

北口> alist になっちゃってたんですね...

ちょっと複雑になったよね。理解している人は少人数ではないかと。^^;;;

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