[mew-dist 26384] Re: contrib/mew-browse.el

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

From: Shun-ichi TAHARA (田原 俊一) <jado at example.com>
Message-Id: <20050530.213326.213686098.jado at example.com>

> --- 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))))))

↑ここは mew-ext-prog-url-args じゃなくて mew-ext-prog-url でした (_ _)。

>  
>  (defun mew-url-mailto (url)
>    "Execute mew-user-agent-compose with parsing RFC2368.
--
jado at example.com