From 0c694764b1b504129beb2b790c6b7c0e2a4890b3 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 15 Apr 2002 09:42:12 +0000 Subject: [PATCH] * elmo-shimbun.el (elmo-shimbun-entity-to-header): Decode by mime-charset. * elmo-imap4.el (elmo-imap4-search-internal-primitive): Added "larger" and "smaller". --- elmo/ChangeLog | 8 ++++++++ elmo/elmo-imap4.el | 3 ++- elmo/elmo-shimbun.el | 34 ++++++++++++++++++++-------------- 3 files changed, 30 insertions(+), 15 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4