[Mew-dist 15261] Re: mew-scan-form-*

[藤原 誠 Makoto Fujiwara]

>                                            千葉市中央区長洲
>                                                    藤原  誠

随分昔のメールなので、多分解決済だと言う気もしますが、一応話題が
なかった気がするので、書いて見ます。

Mew-dist: 14436 にて
From: INOUE Tomohiro <tinoue at example.com>
Subject: mew-scan-form-*
Date: Sun, 8 Oct 2000 17:34:57 +0900
Message-ID: <20001008.173416.61753326.inoue at example.com>

tinoue> ここで、自前で用意する mew-scan-form-* の中で任意のヘッダーを
tinoue> 扱いたいのですが、どのようにすればいいでしょうか？
tinoue> （例えば Cc: や X-ML-Name: X-Mail-Count: など）

添付のようなものを読ませてから起動して見たら、次のような表示になりました。

12846  12/02 NINOMIYA Hidey Mew-dist   15256 Re: Mew no info
12847 M12/02 Shun-ichi TAHA Mew-dist   15257 another visualisation of thread                                                           
12848  12/02 KIM Hyeong Che Mew-dist   15258 Re: another visualisation of thread 
12849  12/02 Hideyuki SHIRA Mew-dist   15259 Re: thread 

もう少しましな書き方があると思いますが、とりあえず、こうなっていな
いと僕は使えないので、とりあえず報告ということで。
(僕はメールの受取時に [ml_name: num] は削っています。念為)
---
(藤原)
-------------- next part --------------
(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:"
    ))

(setq mew-scan-fields-alias
  '("FLD" "NUM" "SUBJ" "DATE" "FROM" "TO" "CT" "ID" "UIDL" "IRT" "REF" "ML" "COUNT"))



(setq mew-scan-form 
      '(type (5 date) " " 
	     (14 from) " " 
	     (10 ml) " "
	     (5 count) " "
	     (0 subj)))


(defun mew-scan-form-count ()
  (let ((count (MEW-COUNT)))
    count))

(defun mew-scan-form-ml ()
  (let ((ml (MEW-ML)))
    ml))

; (defun mew-scan-form-subj ()
;   "A function to return Subject:. Unnecessary white spaces are removed."
;  ;; The beginning white spaces have been removed in mew-scan-header
;  ;; (mew-keyval).
;  (let ((subj (MEW-SUBJ)))
;    (if (string= subj "") (setq subj mew-error-no-subject))
;    (if mew-decode-broken
;	subj
;      ;; already well-formatted
;      (mew-replace-white-space subj))))