From: hmurata <hmurata>
Date: Mon, 13 Sep 2004 11:44:57 +0000 (+0000)
Subject: * modb-standard.el (modb-standard-loaded-message-id): Return nil
X-Git-Tag: wl-2_12-root~118
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eb1bd98710dbe66327aa60465f64e85cadd30c9b;p=elisp%2Fwanderlust.git

* modb-standard.el (modb-standard-loaded-message-id): Return nil
when entity is garbaged.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 111347f..d394fba 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* modb-standard.el (modb-standard-loaded-message-id): Return nil
+	when entity is garbaged.
+
 2004-09-13  Tetsurou Okazaki  <okazaki@be.to>
 
 	* elmo-util.el (elmo-delete-if): Reduce loop strength in a while loop.
diff --git a/elmo/modb-standard.el b/elmo/modb-standard.el
index 53d7b2f..7e15c40 100644
--- a/elmo/modb-standard.el
+++ b/elmo/modb-standard.el
@@ -189,7 +189,8 @@ When non-nil, redundunt message-id string are not saved."
      ((null ret)
       ;; Garbage entity.
       (elmo-clear-hash-val (modb-standard-key number)
-			   (modb-standard-entity-map-internal msgdb)))
+			   (modb-standard-entity-map-internal msgdb))
+      nil)				; return nil.
      (t (error "Internal error: invalid msgdb status")))))
 
 (defun modb-standard-load-entity (modb path &optional section)