Mew-4.2 の summary のカスタマイズ
Mew-1.94 時代の形式に合わせるのにけっこう苦労した．特に subject が固定長桁になってしまうのを可変長に戻すあたりは，[mew-dist 26370] からはじまるスレッドのパッチを利用した．
(setq mew-summary-form
`((-5 num) mark type (5 date) " " (5 time) " " (17 from) " " t (0 subj) " <<" (0 body)))
(setq mew-summary-form-extract-rule '(name))で，こんな感じ．
3885 12/08 15:34 Kazu Yamamoto (山 [mew-dist 25712] Mew 4.2 に向けて <<何の
スレッドモード．
3885 12/08 15:34 Kazu Yamamoto (山 [mew-dist 25712] Mew 4.2 に向けて <<何の 3886 12/08 17:09 Hideyuki SHIRAI ( ┣[mew-dist 25713] Re: Mew 4.2 に向けて << 3887 12/08 20:59 Kazu Yamamoto (山 ┃┗[mew-dist 25714] Re: Mew 4.2 に向けて << 3891 12/08 23:34 Yasunari Momoi ┗[mew-dist 25718] Re: Mew 4.2 に向けて ||<<br> <br> <font size=2> 関連記事: <ul> <li> <a href="http://nao.s164.xrea.com/td/2007-12-28.html#p01">Mew 3.3 + stunnel</a> [2007-12-28] <li> <a href="http://nao.s164.xrea.com/td/2007-12-03.html#p01">Mew 2.0 に移行してみる</a> [2007-12-03] <li> <a href="http://nao.s164.xrea.com/td/2006-04-07.html#p01">メール環境 over SSL (その 2: 古い Mew + stunnel)</a> [2006-04-07] <li> <a href="http://nao.s164.xrea.com/td/2006-04-06.html#p1">メール環境 over SSL (その 1: fetchmail で取って来る)</a> [2006-04-06] <li> <a href="http://nao.s164.xrea.com/td/2005-10-05.html#p03">mew-4.2 で RPOP 認証</a> [2005-10-05] </ul> </font> *[comp] Mule-UCS の高速化 で，調子に乗って Emacs-21.4 にも Mule-UCS を入れたりしてみたんだけど <a href="http://nao.s164.xrea.com/td/2005-07-08.html#p03">[2005-07-08]</a>，動作遅すぎ．起動に 1 分くらい掛かる (世間一般でも遅いものとされてるらしい)．そこで，以下のパッチを当てて高速化． <ul> <li> <a href="http://search.luky.org/vine-users.5/msg05758.html">http://search.luky.org/vine-users.5/msg05758.html</a> </ul> ただ，そのままでは動かなかったので (依存関係が変)，un-defined.el の冒頭に >|| (require 'mucs)
をつけてやるとよい．つーわけで，パッチ自体は以下のようになる．
--- un-define.el.orig Wed Mar 7 07:41:38 2001
+++ un-define.el Thu Oct 6 18:43:02 2005
@@ -35,6 +35,7 @@
;;; private charset definition.
(require 'mule-uni)
+(require 'mucs)
;;; Autoload section
(autoload 'ucs-to-char "unicode")
@@ -610,13 +611,21 @@
(mapcar
(lambda (x)
- (mapcar
- (lambda (y)
- (mucs-define-coding-system
- (nth 0 y) (nth 1 y) (nth 2 y)
- (nth 3 y) (nth 4 y) (nth 5 y) (nth 6 y))
- (coding-system-put (car y) 'alias-coding-systems (list (car x))))
- (cdr x)))
+ (if (fboundp 'register-char-codings)
+ ;; Mule 5, where we don't need the eol-type specified and
+ ;; register-char-codings may be very slow for these coding
+ ;; system definitions.
+ (let ((y (cadr x)))
+ (mucs-define-coding-system
+ (car x) (nth 1 y) (nth 2 y)
+ (nth 3 y) (nth 4 y) (nth 5 y)))
+ (mapcar
+ (lambda (y)
+ (mucs-define-coding-system
+ (nth 0 y) (nth 1 y) (nth 2 y)
+ (nth 3 y) (nth 4 y) (nth 5 y) (nth 6 y))
+ (coding-system-put (car y) 'alias-coding-systems (list (car x))))
+ (cdr x))))
`((utf-8
(utf-8-unix
?u "UTF-8 coding system"こうしてパッチを当てた un-define.el をバイトコンパイルしてみたら，なぜか Emacs 起動時にエラーが出るようになってしまった…orz
というわけで結局使わずに速いマシンで動かすことにしたのだが(ぉ，動作報告は web をみるとけっこうあるので，変なカスタマイズとかしてなければ役に立つかも．
ていうか Mew 4，なんかもう飽きて来た…(激ぉ．また仕事モードに戻れるのでよいことだけど．
