[Mew-dist 03507] Re: 始めてまして。

TSUMURA Tomoaki ( 津邑公暁 ) tsumura at example.com
1998年 1月 27日 (火) 17:52:14 JST


つむら@京大 です。何度もすみません。

In the message "[Mew-dist 03506] Re: 始めてまして。"
	on Tue, 27 Jan 1998 17:26:34 +0900,
わたし wrote:

> External Body に関しては、以下のような感じにするというのはどうでしょう?

引数を指定するための変数名、変でした。つけなおします。
;; どっちにしろボツだったりして...(-_-;

;; Mozilla の default で -remote もつけようかと思ったけど、
;; 書式が面倒そうなのでやめました。
;;;; "-remote 'openURL(http://www.mew.org/)'" らしいです...。

--- mew-ext.el.org	Tue Jan 27 17:14:44 1998
+++ mew-ext.el	Tue Jan 27 17:34:30 1998
@@ -24,9 +24,17 @@
 ;;;
 
 (defvar mew-ext-prog-url "netscape")
+(defvar mew-ext-prog-url-args '("-install"))
+
 ;; If you want to use w3.el instead of "netscape", put the 
 ;; following in .emacs.
 ;(setq mew-ext-prog-url "w3")
+;(setq mew-ext-prog-url-args nil)
+
+;; If you want to use lynx instead of "netscape", put the 
+;; following in .emacs.
+;(setq mew-ext-prog-url "kterm")
+;(setq mew-ext-prog-url-args '("-e" "lynx" "-color"))
 
 (defvar mew-ext-anon-ftp-method 'ftp
   "A method to get the message body for access-type=anon-ftp.
@@ -471,9 +479,10 @@
 	  (require 'w3)
 	  (w3-fetch-other-frame url))
 	 (t
-	  (start-process
+	  (apply 'start-process
 	   (format "*mew %s*" mew-ext-prog-url)
-	   mew-buffer-tmp mew-ext-prog-url url)) ;; xxx
+	   mew-buffer-tmp mew-ext-prog-url 
+	   (append mew-ext-prog-url-args (list url)))) ;; xxx
 	 )
       (insert "\nTo show this URL, type "
 	      (substitute-command-keys



Mew-dist メーリングリストの案内