[Mew-dist 3073] Re: case insensitive mew-field-invisible

[UMESHIMA Atsushi]

>>>>> UMESHIMA Atsushi writes:
> 
> mew-field-invisibleという変数に書くリストでは大文字小文字の区別が
> ありますよね。

と、書きましたが、mew-field-visibleの方を忘れてました。
visibleもこんな感じで大文字小文字の区別をしないようにした方がいいと思います。
#なんか、mew-member-case-equalって関数が使えそうな気がしないでもないですが。

*** mew-decode.el.orig	Mon Dec  1 18:38:43 1997
--- mew-decode.el	Thu Dec  4 19:01:16 1997
***************
*** 686,696 ****
  	  (setq beg (match-beginning 0))
  	  (forward-line)
  	  (while (looking-at mew-lwsp) (forward-line))
! 	  (if (string-match invisible-regex key)
  	      ()
  	    (setq line (mew-buffer-substring beg (point)))
  	    (delete-region beg (point))
! 	    (if (null (string-match visible-regex key))
  		(setq others (concat others line))
  	      (setq n (mew-member-case-equal key mew-field-visible))
  	      (aset visible n (concat (aref visible n) line))
--- 686,696 ----
  	  (setq beg (match-beginning 0))
  	  (forward-line)
  	  (while (looking-at mew-lwsp) (forward-line))
! 	  (if (string-match (downcase invisible-regex) (downcase key))
  	      ()
  	    (setq line (mew-buffer-substring beg (point)))
  	    (delete-region beg (point))
! 	    (if (null (string-match (downcase visible-regex) (downcase key)))
  		(setq others (concat others line))
  	      (setq n (mew-member-case-equal key mew-field-visible))
  	      (aset visible n (concat (aref visible n) line))
--
うめしま<umeshima at example.com>