[mew-dist 21664] Re: edit Subject: when displayed in summary

[弓岡 也守輝 (YUMIOKA Yasuteru)]

お世話になります、弓岡です。

From: ARIGA Seiji <ariga at example.com> -->"有賀"さん曰く
Subject: [mew-dist 21663] edit Subject: when displayed in summary
Date: Sat, 07 Sep 2002 15:20:30 +0900 (JST)
Message-Id: <20020907.152030.41630299.ariga at example.com>
ML-Name: [mew-dist: 21663]


有賀> imls を使っていた頃は ~/.im/scan.sbr とかで，たとえば

有賀>   [mew-dist xxxx] question

有賀> の，[mew-dist xxxx] の部分を，Sumamry に表示するときに消すということが
有賀> できましたが，今でも何か手を入れることで，できるようになったりするで
有賀> しょうか？

ML に流すには恥ずかしいのですが、私は下記の様にしています。
ただし、+inboxでは [mew-dist xxxx]を消したくないので、+mew/dist に振り
分けた先で、xxxx Subject にしています。

もっと、スマートな方法があると思いますが、私にはこれが限界です。
-------------- next part --------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; scan-form

(setq mew-scan-fields
  '("Folder:" "Filename:" "Subject:" "Date:" "From:" "To:"
    "Content-Type:" "Message-Id:" "X-Mew-UIDL:"
    "In-Reply-To:" "References:"
    "X-Ml-Name:" "X-Mail-Count:" "X-ML-COUNT:" "X-Seqno:"
    ))

(setq mew-scan-fields-alias
  '("FLD" "NUM" "SUBJ" "DATE" "FROM" "TO" "CT" "ID" "UID" "IRT" "REF" "MLNAME" "MAILCOUNT" "MLCOUNT" "SEQNO"))


(setq mew-scan-form-list-list-type 'regex); 'regex 'recursive 'string.


;; mail header で、
;; X-Ml-Name → mlname
;; X-Mail-Count → mailcount
;; X-ML-Count → mlcount
;; に対応させています。

;; また、元の Subject は subj
;; [Mailing-List Number]を削除したものは mlsubj です。

(setq mew-scan-form-list
      '(
;	(t (type (5 date) " " (14 from) " " (0 subj)));default
	(("[+/]mew[+/]dist")
	 ( type (5 date) " " (14 from) " " (5 mailcount) " " (0 mlsubj)))
	(t
	 ( type (5 date) " " (14 from) " " (0 subj)))
	))


(defun mew-scan-form-mailcount ()
  (let ((mailcount (MEW-MAILCOUNT)))
    mailcount))

(defun mew-scan-form-mlcount ()
  (let ((mlcount (MEW-MLCOUNT)))
    mlcount))

(defun mew-scan-form-seqno ()
  (let ((seqno (MEW-SEQNO)))
    seqno))

(defun mew-scan-form-mlname ()
  (let ((mlname (MEW-MLNAME)))
    mlname))

(defun mew-scan-form-mlsubj ()
  "A function to return Subject:. Unnecessary white spaces are removed."
  ;; The beginning white spaces have been removed in mew-scan-header
  ;; (mew-keyval).
  (let ((mlsubj (MEW-SUBJ)))
    (if (string= mlsubj "") (setq mlsubj mew-error-no-subject))
    (if (string-match "\\(\\[.*\\][ \t\n]*\\)\\(.*\\)$" 
		      (mew-replace-white-space mlsubj))
	(substring (mew-replace-white-space mlsubj)
		   (match-beginning 2) (match-end 2))
      (mew-replace-white-space mlsubj))))