[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 メーリングリストの案内