From: yoichi <yoichi>
Date: Thu, 5 Sep 2002 09:45:50 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-line-attached): Bind case-fold-search as t.
X-Git-Tag: elmo-mark-root~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=16b073196a906bd9531cbf13d2e3ce3b4ddba8df;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-line-attached): Bind case-fold-search as t.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6a8e4e7..1a0d2bc 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-summary.el (wl-summary-line-attached): Bind case-fold-search
+	as t. Since type and subtype are not case sensitive (RFC 2045).
+
 2002-09-04  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-vars.el (wl-message-mode-line-format): New variable.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 47ff878..08e384b 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4202,7 +4202,8 @@ If ARG, exit virtual folder."
 
 (defun wl-summary-line-attached ()
   (let ((content-type (elmo-msgdb-overview-entity-get-extra-field
-		       wl-message-entity "content-type")))
+		       wl-message-entity "content-type"))
+	(case-fold-search t))
     (if (and content-type
 	     (string-match "multipart/mixed" content-type))
 	"@"