From a449ea639d9a00f91e0374f45e95fa7f0ebf26df Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 23 Jan 2007 03:56:04 +0000 Subject: [PATCH] (elmo-shimbun-update-overview): Add argnument `entity'. (elmo-map-message-fetch): Call `elmo-shimbun-update-overview' only if the message entity is exists. --- elmo/ChangeLog | 7 +++++++ elmo/elmo-shimbun.el | 9 +++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 4a2ec63..a5bb6c9 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,10 @@ +2007-01-23 Hiroya Murata + + * 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 * 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 --- 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)) -- 1.7.10.4