[Mew-dist 14309] scan-form

[OHARA Shigeki]

大原です。

scan-form が実装されて、alpha で冒険してみようと思っているのですが、
IM からの移行にあたって幾つか質問というか要望があります。


私は ~/.im/Config に、

ScanSbr=scan.sbr
Form=%+5n %m%d %-15A %S <<%b
Width=80
JisSafe=on

のような設定をして (scan.sbr は、かずのり先生からパクったモノ)、
Summary を、

 9061  09/28 Shigeya Suzuki  [14303] Re: sudden hang <</var が溢れていることに
 9062  09/28 NARA Susumu     [14304] Re: Scanning Raw JIS Subject + alpha Mew(S
 9063  09/28 白井さん        [14305] Re: utashiro special <<もう一つ付属のパッ
 9064  09/28 かずさん        [14306] Re: utashiro special <<ぐー。 現在では、さ
 9065  09/28 かずさん        [14307] Re: Scanning Raw JIS Subject + alpha Mew(S

のように表示するようにしています。
で、移行後もこのように表示させたいと思っています。


とりあえず、~/.mew に、

;---- ここから ----
;;; scan form

; ML のフォルダでは、[Mew-dist 12345] を [12345] にする。
(defun mew-strip-ml-name (string)
  (if (string-match
       "^\\s *\\([\\[\\(]\\)[^]]+[\\:\\s ]+\\([0-9\\_]+[]\\)]\\)" string)
      (setq string
	    (concat
	     (substring string (match-beginning 1) (match-end 1))
	     (substring string (match-beginning 2) (match-end 2))
	     ))) string)
(defun mew-scan-form-mlsubj () (mew-replace-white-space SUBJ)
			       (mew-strip-ml-name SUBJ))

(setq mew-scan-form-list
      '((("+ml")
	 (type (5 date) " " (14 from) " " (-1 mlsubj) " <<"))
	(t
	 (type (5 date) " " (14 from) " " (-1 subj) " <<"))))
;---- ここまで ----

のような設定をして、なんとかそれらしく近付けていますが、
更に近づけたい、というわけで、


1. (-1 subj) で subject が console のカラム幅を越えた場合や、
   (0 subj) のようにした場合に、Summary の行末に '$' が付いてしまいます。
   で、scan-form の幅指定 (例えば 80 とか 79 とか) がしたいです。

2. mew-scan-form-body が実装される予定はありますか？
   ＃ mewls が body まで scan する必要がある？

3. で、できれば、body は IM::Scan の "%b" 並に賢くなって欲しい。
   ＃ というのは、自分で関数書けばいいのかな……？


というのが実現されると嬉しいです。


あと、mew-scan-form-mark-delete と mew-scan-form-mark-review は、
デフォルトで nil の方が良いように思います。
＃ いきなり挙動が変わってびっくりしました。


それと、scan-form とは関係ないのですが、IM の、
  UsePwFiles=yes
  PwFiles=password
が実装されたりすることはないでしょうか？
＃ パスワードはなるべく打ちたくないんです……。

----
OHARA Shigeki (大原重樹) <os at example.com>