[mew-dist 26381] contrib/mew-browse.el

[Shun-ichi TAHARA ( 田原 俊一 )]

contrib/mew-browse.el と Mew CVS current の相性が悪いようです。2点ほど。

1)

mew-browse.el は、外部ブラウザを起動する場合に mew-ext-prog-url と
mew-ext-prog-url-args を要求し、デフォルト値がそれぞれ、

  mew-ext-prog-url := mew-prog-text/html-ext
  mew-ext-prog-url-args := nil

となっていますが、先週の C-cC-e 強化キャンペーンでこのへんが不整合を起
こしてます。

↓こんな感じにする必要がありそう。

--- mew-browse.el.orig	2005-05-30 21:20:57.000000000 +0900
+++ mew-browse.el	2005-05-30 21:21:32.000000000 +0900
@@ -73,7 +73,7 @@
   (defvar mew-browse-button [mouse-2] "*Mouse button in message mode."))
 
 (defvar mew-ext-prog-url mew-prog-text/html-ext)
-(defvar mew-ext-prog-url-args nil)
+;(defvar mew-ext-prog-url-args nil)
 
 (setq browse-url-browser-function 'mew-browse-url)
 
@@ -168,9 +168,9 @@
     (w3-fetch-other-frame url))
    (t
     (apply (function start-process)
-	   (format "*mew %s*" mew-ext-prog-url)
-	   nil mew-ext-prog-url 
-	   (append mew-ext-prog-url-args (list url))))))
+	   (format "*mew %s*" (car mew-ext-prog-url))
+	   nil (car mew-ext-prog-url)
+	   (append (car (cdr mew-ext-prog-url-args)) (list url))))))
 
 (defun mew-url-mailto (url)
   "Execute mew-user-agent-compose with parsing RFC2368.


2)

mew-browse.el を使っていると、mailto: なアンカをクリックした場合に
draft が用意されますが、mew-browse-url-at-mouse の修正の影響で、このと
きにウィンドウ構成が壊れてしまいます。

何となくですが、mew-browse-url-at-mouse での URL のメソッドの弁別を行
なった後で pop-to-buffer するようにする必要がありそう。

となると、mew-browse.el を Mew 本体に統合した方がスッキリと解決しそう
な気がします。

・mew-browse.el の機能を Mew 本体に統合
  - mozex 用のエントリ (mew-url-mailto-mozex) と、
    browse-url 用のエントリ (mew-browse-url) を提供
  - よくわかってないけど、mew-url-mailto-mozex と mew-url-mailto は統
    合できない?

・mew-browse.el (mew-browse-url)の外部ビューア起動を mew-mime.el の処
  理に統合

あたりでしょうか。

具体的な手の入れ方はまだよく見えていませんが。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint:  16 9E 70 3B 05 86 5D 08  B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣