* sb-mixi.el (shimbun-get-headers): Use `mixi-bbs-p'.

(shimbun-mixi-get-comment-p): Abolish.
(shimbun-mixi-get-headers): Follow the change above.

diff --git a/ChangeLog b/ChangeLog
index 9dc9cc3..0f39637 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2006-12-25  OHASHI Akira  <bg66@koka-in.org>
 
+       * sb-mixi.el (shimbun-get-headers): Use `mixi-bbs-p'.
+       (shimbun-mixi-get-comment-p): Abolish.
+       (shimbun-mixi-get-headers): Follow the change above.
+
+2006-12-25  OHASHI Akira  <bg66@koka-in.org>
+
        * mixi.el (mixi-event-time-regexp): Fix regexp.
        (mixi-event-title-regexp): Ditto.
        (mixi-event-owner-regexp): Ditto.

diff --git a/sb-mixi.el b/sb-mixi.el
index 99d817f..2c56b98 100644 (file)
--- a/sb-mixi.el
+++ b/sb-mixi.el
@@ -65,11 +65,6 @@ of mixi object."
   :group 'shimbun
   :type 'integer)
 
-(defcustom shimbun-mixi-get-comment-p t
-  "*If non-nil, get diaries or BBSes together with its comments."
-  :group 'shimbun
-  :type 'boolean)
-
 (defcustom shimbun-mixi-logout-p nil
   "*If non-ni, logout from mixi when shimbun server was closed."
   :group 'shimbun
@@ -195,10 +190,8 @@ of mixi object."
                      0 0
                      (shimbun-mixi-make-xref object))
                     headers)
-                   (when (and shimbun-mixi-get-comment-p
-                              (or (eq class 'mixi-diary)
-                                  (eq class 'mixi-topic)
-                                  (eq class 'mixi-event)))
+                   (when (or (eq class 'mixi-diary)
+                             (mixi-bbs-p object))
                      (let ((comments (mixi-get-comments object range)))
                        (mapc (lambda (header)
                                (push header headers))
@@ -225,8 +218,7 @@ of mixi object."
                ((eq class 'mixi-community)
                 (setq objects (mixi-get-bbses object range)))
                ((or (eq class 'mixi-diary)
-                    (eq class 'mixi-topic)
-                    (eq class 'mixi-event))
+                    (mixi-bbs-p object))
                 (setq objects (mixi-get-comments object range)))
                (t (error (concat (symbol-name class)
                                  " is not supported yet.")))))