X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-shimbun.el;h=889280ae20291b7a6a1489e8d42bce2fb2ea573f;hb=bd7b094aadfdb27f7fd1ada42d817678eb391a3a;hp=08f9fd804c41c9c3b410850bfe358e65ff151b84;hpb=4e359c1798c1cb6e355283a1e36a3f1346d5667b;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 08f9fd8..889280a 100644
--- 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))