From: teranisi <teranisi>
Date: Mon, 2 Oct 2000 03:02:44 +0000 (+0000)
Subject: * elmo-nntp.el (elmo-nntp-search-primitive): Decode header field.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=26da2586ccb8b0cccc52e052d0264beb4075dd1c;p=elisp%2Fwanderlust.git

* elmo-nntp.el (elmo-nntp-search-primitive): Decode header field.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4353298..71fc603 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2000-10-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-nntp.el (elmo-nntp-search-primitive): Decode header field.
+
 	* elmo-util.el (elmo-buffer-field-primitive-condition-match): Fixed.
 
 	* elmo-nntp.el (elmo-nntp-default-use-xhdr): New variable.
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 2ecba97..7d7de84 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -1233,7 +1233,10 @@ Returns a list of cons cells like (NUMBER . VALUE)"
 	      (delq nil
 		    (mapcar
 		     (lambda (pair)
-		       (if (string-match val (cdr pair))
+		       (if (string-match val
+					 (eword-decode-string
+					  (decode-mime-charset-string
+					   (cdr pair) elmo-mime-charset)))
 			   (car pair)))
 		     (elmo-nntp-retrieve-field spec search-key
 					       from-msgs))))