[Mew-dist 14615] mew-scan-form-type

[SAKAI Kiyotaka]

mew-scan-form-type では

    (cond
     ((not (string= uidl ""))                 "T")
     ((string-match "Multipart/Signed"    ct) "S")
     ((string-match "Multipart/Encrypted" ct) "E")
     ((string-match "Multipart/"          ct) "M")
     (t " "))))

のようなコードになっていますが、case-fold-search を nil に設定している
と、Multipart がすべて小文字だとマッチしなくなります。そのため、

  (let ((case-fold-search t))
     ...
  )

で囲った方がいいと思います。

# あるいは、Summary buffer では最初から (setq case-fold-search t) とし
# てしまう方法もあると思います。
-- 
酒井 清隆 (E-mail: ksakai at example.com)