[Mew-dist 04246] Re: patch to mew-summary-execute-external

[Mito]

※ "山" こと Kazu at example.com さんの
   『[Mew-dist 04187] Re: patch to mew-summary-execute-external』より

山> > 現状のまま mew-prog-text/html は常に region に対して実行され
山> > るものというのでいいと思います。

山> 結局これはどういう合意に達したのでしょう？ 全体の機能の説明とそれを実
山> 現するパッチが欲しいです。

mew-prog-text/html には region を引数にとるfunction か、外部
プログラム名の文字列を設定する。

外部プログラムの場合は HTML ファイルの他に
mew-prog-text/html-arg も引数に与える。

でいいんだと思います。パッチなし。現状のままです。
＃ 違うかな？

mew-ext-url は変更してほしくて、パッチを出しましたが、メッセー
ジとか変な感じがしますから、

(defun mew-ext-url (begin end params execute)
  (let ((url (mew-syntax-get-member params "url"))
	(size (mew-syntax-get-member params "size"))
	(process-connection-type mew-connection-type1)
	(buffer-read-only nil))
    (erase-buffer)
    (insert "#	   # ######  #\n"
	    "#	   # #	   # #\n"
	    "#	   # #	   # #\n"
	    "#	   # ######  #\n"
	    "#	   # #	 #   #\n"
	    "#	   # #	  #  #\n"
	    " #####  #	   # #######\n"
	    "\n\n"
	    (format "URL:\t\t%s\n" url)
	    (if size (insert (format "SIZE:\t%s bytes\n" size)) "")
	    (format "Browser:\t%s\n"
		    (cond ((and (symbolp mew-ext-prog-url)
				(fboundp mew-ext-prog-url))
			   (symbol-name mew-ext-prog-url))
			  ((stringp mew-ext-prog-url) mew-ext-prog-url)
			  (t "none")))
	    )
    (if (null execute)
	(insert "\nTo show this URL, type "
		(substitute-command-keys
		 "\\<mew-summary-mode-map>\\[mew-summary-execute-external]."))
      (cond
       ((and (symbolp mew-ext-prog-url) (fboundp mew-ext-prog-url))
	(funcall mew-ext-prog-url url))
       ((equal mew-ext-prog-url "w3")
	(require 'w3)
	(w3-fetch-other-frame url))
       (t
	(apply (function start-process)
	       (format "*mew %s*" mew-ext-prog-url)
	       mew-buffer-tmp mew-ext-prog-url 
	       (append mew-ext-prog-url-args (list url))))
       )
      )
    ))

のようにして欲しいです。
mew-prog-text/html と同様に文字列の場合は外部プログラムを
callしますが、"w3"のみ別扱いです。
引数は URL が渡ります。

※ "山" こと Kazu at example.com さんの
   『[Mew-dist 04188] Re: Not a part』より

山> > 以下のようなメールうけとると、HTML だっていってくれて、
山> > C-c C-e すると browser 開くぜ、とかでてるんですが、
山> > Not a part とかいわれてしまいます。

山> 書き忘れましたが、先程のはこれに対する答えも含まれていて欲しいです。

これは、別問題だと思いますが、

--- mew-summary.el	1998/03/19 13:45:19	1.1
+++ mew-summary.el	1998/03/19 13:45:33
@@ -894,8 +894,8 @@
 	 (msg (mew-summary-message-number))
 	 (part (mew-syntax-number))
 	 (buf (buffer-name)))
-    (if (or msg (not part))
-	(message "Not a part")
+;    (if (or msg (not part))
+;	(message "Not a part")
       (unwind-protect
 	  (progn
 	    (mew-summary-toggle-disp-msg 'on)
@@ -903,7 +903,7 @@
 	    (set-buffer (mew-buffer-message))
 	    (mew-summary-display-part
 	     (mew-cache-decode-syntax (mew-cache-hit ofld-msg)) part nil t))
-	(pop-to-buffer buf)))
+	(pop-to-buffer buf));)
     ))
 
 (defun mew-summary-recenter ()

で特に問題はないと思いますが。
-- 
3/20 11:09頃
NECソフトウェア新潟  水戸
mailto:mit at example.com \n