* 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 (file)
--- 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 (file)
--- 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))
        "@"