[Mew-dist 943] Re: misc.... Mew version 1.69 on XEmacs 20.1

[Toshihiko SHIMOKAWA / 下川俊彦]

From: 小関　吉則 (KOSEKI Yoshinori) <kose at example.com>
Subject: [Mew-dist 903] misc.... Mew version 1.69 on XEmacs 20.1
Date: Thu, 17 Apr 1997 10:36:10 +0900

> 1.X-Sequence: Mew-dist 742
>   Content-Type: Message/External-Body; access-type="url";
>   のようなメールに対しては
>   mew-ext.elで(defvar mew-ext-prog-url "netscape")
>   のように外部プロセスを起動するようになっていますが、
>   w3を呼び出すように改造した方はいらっしゃいませんか?

ゴールデンウィークの工作ということでやってみました.

~/.emacs で
(setq mew-ext-prog-url 'w3-fetch-other-frame)
(add-hook 'mew-init-hook
          (function
             (lambda ()
                (require 'w3))))

てな感じで設定を追加してみてください. 

'w3-fetch ではなく -other-frame を使っている理由は, おそらく一度両方の設
定で試してみれば一目瞭然だと思います. 'w3-fetch の場合にも w3 のバッファ
の名前を *Mew message*0 に変更すれば問題無いと思うのですが, コード量が多
そうだったのと, w3 の内部に依存しそうで嫌だったので止めました. 
<title> をどこに表示するかという問題もありますし.

# モードラインの定義を一瞬変更するという方法は考えたんだけどね. 

"prog" という変数名は適切では無いような気もしますが, まぁご愛敬と言うこ
とで. 当然 "netscape" のように文字列が設定されている場合は従来通りの動作
をします. 

ちなみに text/html なパートについて 'w3 に表示させるのも, ちょっとやって
みました. いまいち w3 に良い関数が用意されていないのと, ↑と同じバッファ
名の問題でスマートになりません. text/html なメイルの表示までなら超簡単な
んだけど, 他のメイルに移った瞬間に涙します. ↑で 'we-fetch を使った場合
と同様です. 


> 2.画像ファイルを含むマルチパートのメールを読む時、画像部分を
>   inline展開するものだと期待していたのですがそうなりません。
>   XEmacsのインストールに失敗していますか?

いえ, それが現在の仕様です. 
--
としちゃん // ぁぁ, ゴールデンウィークが終っていくぅ...
-------------- next part --------------
--- mew-ext.el-dist	Mon Apr 21 18:00:00 1997
+++ mew-ext.el	Sun May  4 23:55:21 1997
@@ -475,9 +475,13 @@
     (if size (insert (format "SIZE:\t%s bytes\n" size)))
     (if (and execute
 	     (mew-y-or-n-p (format "Gain access to %s ?" url)))
-	(start-process
-	 (format "*mew %s*" mew-ext-prog-url)
-	 mew-buffer-tmp mew-ext-prog-url url)
+	(cond
+	 ((and (symbolp mew-ext-prog-url) (fboundp mew-ext-prog-url))
+	  (funcall mew-ext-prog-url url))
+	 (t
+	  (start-process
+	   (format "*mew %s*" mew-ext-prog-url)
+	   mew-buffer-tmp mew-ext-prog-url url)))
       (insert "\nTo show this URL, type "
 	      (substitute-command-keys
 	       "\\<mew-summary-mode-map>\\[mew-summary-execute-external]."))