[mew-dist 23370] summary-form (was: Mew 4.0.51)

[Tatsuya Kinoshita]

On March 21, 2003, [mew-dist 23369],
Tak Ota <Takaaki.Ota at example.com> wrote:

> ところで以前 type フィールド（或はその前）にメッセージ番号（メッセージ
> のファイル名に相当）が表示されていましたがこれが無くなりました。どうす
> れば復活しますか？

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

たとえば下記のようにカスタマイズできます。(ただし、番号表示は、
PackやSortでサポートされておらず、PackやSortのあと再表示(`s all')
が必要です)

(setq mew-summary-form-body-starter "|")
(setq mew-summary-form-list
      `(("[+]\\(draft\\|queue\\|postq\\)"
	 ((-5 my-num) type (5 date) " " (14 from) " " t (26 subj)
	  ,mew-summary-form-body-starter (0 body)))
	(t
	 ((-5 my-num) type (5 date) " " (14 from) " " t (26 my-subj)
	  ,mew-summary-form-body-starter (0 body)))))
(defun mew-summary-form-my-num ()
  (MEW-NUM))
(defun mew-summary-form-my-subj ()
  "A function to return simplified Subject:."
  (let ((subj (mew-summary-form-subj)))
    ;; remove ML label
    (while (string-match "^\\(Re: *\\)*\\([[(][a-zA-Z0-9._-]+[ :,][0-9]+[])] *\\)" subj)
      (setq subj (concat (substring subj 0 (match-beginning 2))
			 (substring subj (match-end 2)))))
    ;; remove Re: Re: ...
    (while (string-match "^\\(Re: *\\)\\(Re: *\\)+" subj)
      (setq subj (concat (substring subj 0 (match-beginning 2))
			 (substring subj (match-end 2)))))
    ;; remove (was...)
    (while (string-match (concat "^.*\\(" mew-was-regex "\\)") subj)
      (setq subj (substring subj 0 (match-beginning 1))))
    subj))

-- 
木下達也