From: bg66 <bg66>
Date: Thu, 18 Jan 2007 07:35:53 +0000 (+0000)
Subject: * sb-mixi.el (shimbun-mixi-get-headers): Stop getting comment's
X-Git-Tag: mixi-el-1_0_0~96
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=56072af557606c1d500871d3488f118460405298;p=elisp%2Fmixi.git

* sb-mixi.el (shimbun-mixi-get-headers): Stop getting comment's
headers when it was already shown.
---

diff --git a/ChangeLog b/ChangeLog
index 1ca7409..7d75df6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2007-01-18  OHASHI Akira  <bg66@koka-in.org>
 
+	* sb-mixi.el (shimbun-mixi-get-headers): Stop getting comment's
+	headers when it was already shown.
+
+2007-01-18  OHASHI Akira  <bg66@koka-in.org>
+
 	* mixi.el (mixi-friend-nick-regexp): Follow the change of mixi.
 	(mixi-friend-page): Ditto.
 	(mixi-realize-friend): Ditto.
diff --git a/sb-mixi.el b/sb-mixi.el
index 6761384..0c5f318 100644
--- a/sb-mixi.el
+++ b/sb-mixi.el
@@ -257,6 +257,9 @@ of mixi object."
 		(when (mixi-object-p object)
 		  (let ((class (mixi-object-class object))
 			(id (shimbun-mixi-make-message-id object)))
+		    (when (and (eq class 'mixi-comment)
+			       (shimbun-search-id shimbun id))
+		      (throw 'stop nil))
 		    (push
 		     (shimbun-create-header
 		      0