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