[Mew-dist 716] Re: mew-summary-burst

[UMESHIMA Atsushi]

うめしまです。

>>>>> OKUNISHI Fujikazu <fuji0924 at example.com> wrote: 

> 今のところダイジェスト配送が全て "message/rfc822" と小文字の形式なので
> mew-summary-mode-hook で強制的に mew-ct-msg と mew-type-msg の値を書き
> 換えて凌いでいます。

やっぱり、"Message/rfc822"や"message/rfc822"の形式も使われてるんですね。
RFC1521を見ても、Content-Typeはcase-insensitiveであると書いてあるようです。
かずさんがなぜ大文字と小文字を区別しているのか分からないので、全然抜本的な対策
ではありませんが、SATO Jun-ichi -Junchan- <jsato at example.com>さんや、
YAMAMOTO Toru <jamamoto at example.com>さんと直接メールをやりとりした時に、
こんなパッチを作りましたので、使ってみて下さい。
--
うめしま<umeshima at example.com>
-------------- next part --------------
*** mew-summary.el.orig	Tue Mar 18 19:25:52 1997
--- mew-summary.el	Tue Mar 18 19:27:03 1997
***************
*** 2529,2535 ****
  	  (setq len (- (length multi) mew-syntax-magic))
  	  (while (<= n len)
  	    (setq entry (mew-syntax-get-entry syntax (list n)))
! 	    (if (not (equal (mew-syntax-get-ct entry) mew-type-msg))
  		()
  	      (write-region
  	       (mew-syntax-get-begin entry)
--- 2529,2535 ----
  	  (setq len (- (length multi) mew-syntax-magic))
  	  (while (<= n len)
  	    (setq entry (mew-syntax-get-entry syntax (list n)))
! 	    (if (not (equal (capitalize (car (mew-syntax-get-ct entry))) (car mew-type-msg)))
  		()
  	      (write-region
  	       (mew-syntax-get-begin entry)