From 16b073196a906bd9531cbf13d2e3ce3b4ddba8df Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 5 Sep 2002 09:45:50 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-line-attached): Bind case-fold-search as t. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * 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 * 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)) "@" -- 1.7.10.4