[mew-dist 22800] Re: mew 3.1.50 summary buffer?

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hiroshi Fujishima <pooh at example.com> さん曰く
Subject: [mew-dist 22799] Re: mew 3.1.50 summary buffer?
Message-ID: <20030106.185222.50019786.pooh at example.com>
Date: Mon, 06 Jan 2003 18:52:22 +0900 (JST)

> > (defun mew-ext-url-fetch-by-w3m (dummy url)
> >   (require 'w3m)
> >   (lexical-let ((url url) handler)

> 最初、fetch のほうは、lexical-let という関数が存在しないといわれたので
> すが、(require 'cl) するとうまくいきました。どうも、ありがとうございま
> す。

あぁ、ごめんなさい。また、runtime cl がぼくの環境に紛れ込んでい
ました。

> P.S.
> 
> この設定がデフォルトのほうがうれしい人が結構いると思うのですがいかがで
> しょうか。

fetch の方は 'cl がないとどうしようも無いのですが、
(eval-when-compile (require 'cl)) を Mew でするのはなんでしょう
し、mew-w3m.el で類似の関数を定義しました。emacs-w3m の CVS から
持ってこれます。

ちょっと気が変わって関数名を変えてしまったので、mew-w3m.el の方
を使われるのでしたら、

     (setq mew-ext-url-alist
	   '(("^application/" "Fetch by emacs-w3m" mew-w3m-ext-url-fetch nil)
	     (t "Browse by emacs-w3m" mew-w3m-ext-url-show nil)))

でお願いします。


P.S.
ついでに木下さんのご指摘のコメントも直しておきました。年越しでご
めんなさい。

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