Changed codename to Venus-pre2.

[elisp/wanderlust.git] / elmo / elmo-shimbun.el

diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 0f4df88..1e2bf02 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)
@@ -186,7 +192,7 @@ update overview when message is fetched."
   (let* ((shimbun (elmo-shimbun-folder-shimbun-internal folder))
         (key (concat (shimbun-server-internal shimbun)
                      "." (shimbun-current-group-internal shimbun)))
-        (elmo-hash-minimum-size 0)
+        (elmo-hash-minimum-size 63)
         headers)
     ;; new headers.
     (setq headers
@@ -248,6 +254,9 @@ update overview when message is fetched."
 (luna-define-method elmo-folder-reserve-status-p ((folder elmo-shimbun-folder))
   t)
 
+(luna-define-method elmo-folder-local-p ((folder elmo-shimbun-folder))
+  nil)
+
 (luna-define-method elmo-message-use-cache-p ((folder elmo-shimbun-folder)
                                              number)
   elmo-shimbun-use-cache)
@@ -373,7 +382,7 @@ update overview when message is fetched."
         'elmo-folder-msgdb-create "Creating msgdb..."
         percent))
       (setq numlist (cdr numlist)))
-    (message "Creating msgdb...done.")
+    (message "Creating msgdb...done")
     (elmo-msgdb-sort-by-date
      (list overview number-alist mark-alist))))