* sb-mixi.el (shimbun-mixi-get-comment-p): New user option.

(shimbun-mixi-get-headers): Use it.

diff --git a/ChangeLog b/ChangeLog
index 76bc278..c2d65f1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-20  OHASHI Akira  <bg66@koka-in.org>
+
+       * sb-mixi.el (shimbun-mixi-get-comment-p): New user option.
+       (shimbun-mixi-get-headers): Use it.
+
 2006-11-11  OHASHI Akira  <bg66@koka-in.org>
 
        * mixi.el (mixi-topic-content-regexp): Fix regexp.

diff --git a/sb-mixi.el b/sb-mixi.el
index cf775b1..6c6e3c7 100644 (file)
--- a/sb-mixi.el
+++ b/sb-mixi.el
@@ -58,6 +58,11 @@ FUNCTION is the function for getting articles."
   :group 'shimbun
   :type 'integer)
 
+(defcustom shimbun-mixi-get-comment-p t
+  "*If non-nil, get diaries or topics together with its comments."
+  :group 'shimbun
+  :type 'boolean)
+
 (luna-define-method shimbun-groups ((shimbun shimbun-mixi))
   (mapcar 'car shimbun-mixi-group-alist))
 
@@ -132,8 +137,9 @@ FUNCTION is the function for getting articles."
                      0 0
                      (shimbun-mixi-make-xref object))
                     headers)
-                   (when (or (eq class 'mixi-diary)
-                             (eq class 'mixi-topic))
+                   (when (and shimbun-mixi-get-comment-p
+                              (or (eq class 'mixi-diary)
+                                  (eq class 'mixi-topic)))
                      (let ((comments (mixi-get-comments object range)))
                        (mapc (lambda (header)
                                (push header headers))