From fdccc4d241e2949016df19ebfc60a1c126a1f750 Mon Sep 17 00:00:00 2001 From: bg66 Date: Mon, 20 Nov 2006 06:36:49 +0000 Subject: [PATCH] * sb-mixi.el (shimbun-mixi-get-comment-p): New user option. (shimbun-mixi-get-headers): Use it. --- ChangeLog | 5 +++++ sb-mixi.el | 10 ++++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 76bc278..c2d65f1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-11-20 OHASHI Akira + + * sb-mixi.el (shimbun-mixi-get-comment-p): New user option. + (shimbun-mixi-get-headers): Use it. + 2006-11-11 OHASHI Akira * mixi.el (mixi-topic-content-regexp): Fix regexp. diff --git a/sb-mixi.el b/sb-mixi.el index cf775b1..6c6e3c7 100644 --- 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)) -- 1.7.10.4