[mew-dist 24308] Re: Mew 4.0.51
ARIGA Seiji
ariga at example.com
2004年 1月 3日 (土) 05:22:35 JST
こんにちは,有賀です.
新年初めの大掃除をしていて,Summary の表示を変更しようと思い立ち,
On Fri, 04 Apr 2003 14:08:47 -0800 (PST),
Tak Ota <Takaaki.Ota at example.com> wrote,
> (setq mew-my-subj-replace-alist
> '(("+mew-dist" .
> (("^\\[mew-dist [0-9]*\\] " . "")))
> ("+sony/whatsat" .
> (("^What's at example.com ?[0-9]* ?" . "")))))
> (defun mew-summary-form-my-subj ()
> (let ((subj (mew-summary-form-subj))
> (repl-alist (cdr (assoc (mew-summary-folder-name)
> mew-my-subj-replace-alist))))
> (while repl-alist
> (let ((from-str (caar repl-alist))
> (to-str (cdar repl-alist)))
> (setq repl-alist (cdr repl-alist))
> (if (string-match from-str subj)
> (setq subj (replace-match to-str nil nil subj)))))
> subj))
> (byte-compile 'mew-summary-form-my-subj)
> (setq mew-summary-form
> '(type (5 date) "/" (2 year-2) "(" (3 day-of-week) ")" (13 time-and-zone)
> (14 from) " " (-5 size) " " t (30 my-subj) "|" (0 body)))
を使わせていただいたのですが,上記の "year-2" とか "day-of-week" とかは
標準で使えるものなのでしょうか?
// ARIGA Seiji
Mew-dist メーリングリストの案内