[mew-dist 23550] Re: Mew 4.0.51

[Tak Ota]

Fri, 21 Mar 2003 13:48:04 -0800 (PST): Tak Ota <Takaaki.Ota at example.com> wrote:

> あと個人的な意見ですが mew-dist が付ける [mew-dist xxxxx] という 
> subject の接頭文字列は body の導入で短くなった subject 表示領域の大半
> を占めていやですね。

この件で不満解消のために以下のような工夫をして添付のような結果を得てい
ます。標準でこれに似た機能を提供するとよろこぶ人は結構いるのではないか
と思います。いかがでしょう？（つでに「お世話になります」といった接頭辞
のために body 用もあるといいかも）

    (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)))

-Tak
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: mew.gif
型:         image/gif
サイズ:     34246 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/20030404/460c4f14/attachment.gif>