(elmo-folder-initialize): Complete abbreviated

[elisp/wanderlust.git] / elmo / modb-entity.el

diff --git a/elmo/modb-entity.el b/elmo/modb-entity.el
index e7dccfb..de20c92 100644 (file)
--- a/elmo/modb-entity.el
+++ b/elmo/modb-entity.el
@@ -48,6 +48,7 @@
 (defun elmo-message-entity-handler (&optional entity)
   "Get modb entity handler instance which corresponds to the ENTITY."
   (if (and entity
+          (car-safe entity)
           (not (stringp (car entity))))
       (car entity)
     (or modb-entity-default-cache-internal
@@ -223,7 +224,7 @@ Header region is supposed to be narrowed.")
                     (elmo-mime-string (or (elmo-field-body "subject")
                                           elmo-no-subject))
                     "\t" " ")
-           date (elmo-field-body "date")
+           date (elmo-unfold-field-body "date")
            to   (mapconcat 'identity (elmo-multiple-field-body "to") ",")
            cc   (mapconcat 'identity (elmo-multiple-field-body "cc") ","))
       (unless (elmo-msgdb-message-entity-field handler entity 'size)