(elmo-shimbun-update-overview): Add argnument

`entity'.
(elmo-map-message-fetch): Call `elmo-shimbun-update-overview' only
if the message entity is exists.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4a2ec63..a5bb6c9 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2007-01-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-shimbun.el (elmo-shimbun-update-overview): Add argnument
+       `entity'.
+       (elmo-map-message-fetch): Call `elmo-shimbun-update-overview' only
+       if the message entity is exists.
+
 2007-01-16  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-util.el (elmo-msgdb-insert-file-header): Call

diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 08f9fd8..889280a 100644 (file)
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -352,9 +352,8 @@ If it is the symbol `all', update overview for all shimbun folders."
 (luna-define-method elmo-folder-message-file-p ((folder elmo-shimbun-folder))
   nil)
 
-(defsubst elmo-shimbun-update-overview (folder shimbun-id header)
-  (let ((entity (elmo-message-entity folder shimbun-id))
-       (message-id (shimbun-header-id header))
+(defsubst elmo-shimbun-update-overview (folder entity shimbun-id header)
+  (let ((message-id (shimbun-header-id header))
        references)
     (when (elmo-msgdb-update-entity
           (elmo-folder-msgdb folder)
@@ -393,7 +392,9 @@ If it is the symbol `all', update overview for all shimbun folders."
                  (elmo-string-match-member
                   (elmo-folder-name-internal folder)
                   elmo-shimbun-update-overview-folder-list))
-         (elmo-shimbun-update-overview folder location header))
+         (let ((entity (elmo-message-entity folder location)))
+           (when entity
+             (elmo-shimbun-update-overview folder entity location header))))
        (when (setq shimbun-id
                    (elmo-shimbun-header-extra-field header "x-shimbun-id"))
          (goto-char (point-min))