[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 メーリングリストの案内