[mew-win32 4583] Re: Meadow 3.02でのコンパイルワーニングの報告

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: "h.tachi" <hitoya.tornado at example.com> さん曰く
Subject: [mew-win32 4582] Re: Meadow 3.02でのコンパイルワーニングの報告
Message-ID: <CAHFZ=gLiM5-Z28xy47e-M9bT-e3OH89q68m4D-djx_8cAStcrQ at example.com>
Date: Tue, 26 Jul 2011 13:40:23 +0900

> このByte Compileしたものをインストールしたフォルダーにもっていき、mewを立ち上げようとしましたが、
> 立ち上がりませんでした。 .mew.elの以下をコメントにしたところ、mewは立ち上がります。
> 
> ;; browse-url
> (eval-after-load "mew" '(require 'mew-browse))
> (define-key global-map [S-mouse-3] 'browse-url-at-mouse)
> (define-key global-map [mouse-3] 'browse-url-at-mouse)
> 
> BackTraceが取れましたので、添付します。
> 使っているmew-browse.elも付けます。

やっと原因がわかりました。

> Debugger entered--Lisp error: (void-variable mew-prog-text/html-ext)
>   (defvar mew-ext-prog-url mew-prog-text/html-ext)

Byte-compile の有無の差異は分かっていないのだけど、

解決法 1.
.mew.el の最初の方に
(defvar mew-prog-text/html-ext "fiber.exe")
って書いてみて下さい。

解決法 2.

> ;; browse-url
> (eval-after-load "mew" '(require 'mew-browse))
> (define-key global-map [S-mouse-3] 'browse-url-at-mouse)
> (define-key global-map [mouse-3] 'browse-url-at-mouse)

これを

(add-hook 'mew-init-hook
	  (lambda ()
	    (require 'mew-browse)
	    (define-key global-map [S-mouse-3] 'browse-url-at-mouse)
	    (define-key global-map [mouse-3] 'browse-url-at-mouse)))

としてみて下さい。

根本的な解決はまた今度 ^^;;;

-- 
白井秀行 (mailto:shirai at example.com)