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

[Hideyuki SHIRAI ( 白井秀行 )]

すっかりお正月モードに入っていた白井です。

# 1byte もコードを書かず、1行も readme/info を書かず、一通もメー
# ルを出さなかった。。。

From: Hiroshi Fujishima <pooh at example.com> さん曰く
Subject: [mew-dist 22780] Re: mew 3.1.50 summary buffer?
Message-ID: <20021228.021134.50034048.pooh at example.com>
Date: Sat, 28 Dec 2002 02:11:34 +0900 (JST)

> > 暴言かもしれませんが、『メンテしていない w3』は load-path から外
> > しておいた方が良いです。ぼくも "M-x w3m" と入力しようとして 
> > "M-x w3" と 30回ぐらい間違えた時点で抹殺しました。
> 
> external-body のファイルを習得するのに w3 のかわりに emacs-w3m を使う
> ようにするには、どのように設定すればよいのでしょうか。
> mew-ext-url-alist を変更すればいいということまではわかったのですが、ど
> の関数を使えばよいのか分かりませんでした。

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

(defun mew-ext-url-show-by-w3m (dummy url)
  (mew-window-configure 'message)
  (w3m url))

(defun mew-ext-url-fetch-by-w3m (dummy url)
  (require 'w3m)
  (lexical-let ((url url) handler)
    (w3m-process-do
	(success (prog1
		     (w3m-download url nil nil handler)
		   (message "Download: %s..." (file-name-nondirectory url))))
      (if success
	  (message "Download: %s...done" (file-name-nondirectory url))
	(message "Download: %s...failed" (file-name-nondirectory url)))
      (sit-for 1))))

ぐらいでいかがでしょうか。また、fetch の方は一度ダウンロードをは
じめると途中で止めるのが困難なため、お好みで

(setq mew-ext-url-alist
      '((t "Browse by emacs-w3m" mew-ext-url-show-by-w3m nil)))

として、application/* も w3m をそのまま使う方法が良いかもしれな
いです。

-- 
白井秀行＠今年もよろしくお願いします