From: teranisi <teranisi>
Date: Mon, 15 Apr 2002 09:42:12 +0000 (+0000)
Subject: * elmo-shimbun.el (elmo-shimbun-entity-to-header): Decode by mime-charset.
X-Git-Tag: elmo-mark-root~204
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0c694764b1b504129beb2b790c6b7c0e2a4890b3;p=elisp%2Fwanderlust.git

* elmo-shimbun.el (elmo-shimbun-entity-to-header): Decode by mime-charset.

* elmo-imap4.el (elmo-imap4-search-internal-primitive): Added "larger"
 and "smaller".
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d0d72f0..28db700 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,11 @@
+2002-04-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-shimbun.el (elmo-shimbun-entity-to-header): Decode by
+	mime-charset.
+
+	* elmo-imap4.el (elmo-imap4-search-internal-primitive): Added "larger"
+	and "smaller".
+
 2002-04-14  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-shimbun.el (elomo-shimbun-folder): Added entity-hash slot.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index a3b04fe..72946a6 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2088,7 +2088,8 @@ If optional argument REMOVE is non-nil, remove FLAG."
 
 (defun elmo-imap4-search-internal-primitive (folder session filter from-msgs)
   (let ((search-key (elmo-filter-key filter))
-	(imap-search-keys '("bcc" "body" "cc" "from" "subject" "to"))
+	(imap-search-keys '("bcc" "body" "cc" "from" "subject" "to"
+			    "larger" "smaller"))
 	(total 0)
 	(length (length from-msgs))
 	charset set-list end results)
diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 0f4df88..e1a24f6 100644
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -160,20 +160,26 @@ update overview when message is fetched."
 	(setq shimbun-id (elmo-msgdb-overview-entity-get-id entity))
       (setq message-id (elmo-msgdb-overview-entity-get-id entity)
 	    shimbun-id nil))
-    (shimbun-make-header
-     (elmo-msgdb-overview-entity-get-number entity)
-     (shimbun-mime-encode-string
-      (elmo-msgdb-overview-entity-get-subject entity))
-     (shimbun-mime-encode-string
-      (elmo-msgdb-overview-entity-get-from entity))
-     (elmo-msgdb-overview-entity-get-date entity)
-     message-id
-     (elmo-msgdb-overview-entity-get-references entity)
-     0
-     0
-     (elmo-msgdb-overview-entity-get-extra-field entity "xref")
-     (and shimbun-id
-	  (list (cons "x-shimbun-id" shimbun-id))))))
+    (elmo-set-work-buf
+     (set-buffer-multibyte t)
+     (shimbun-make-header
+      (elmo-msgdb-overview-entity-get-number entity)
+      (shimbun-mime-encode-string
+       (decode-mime-charset-string
+	(elmo-msgdb-overview-entity-get-subject-no-decode entity)
+	elmo-mime-charset))
+      (shimbun-mime-encode-string
+       (decode-mime-charset-string
+	(elmo-msgdb-overview-entity-get-from-no-decode entity)
+	elmo-mime-charset))
+      (elmo-msgdb-overview-entity-get-date entity)
+      message-id
+      (elmo-msgdb-overview-entity-get-references entity)
+      0
+      0
+      (elmo-msgdb-overview-entity-get-extra-field entity "xref")
+      (and shimbun-id
+	   (list (cons "x-shimbun-id" shimbun-id)))))))
 
 (defsubst elmo-shimbun-folder-header-hash-setup (folder headers)
   (let ((hash (or (elmo-shimbun-folder-header-hash-internal folder)