From: bg66 Date: Mon, 25 Dec 2006 02:42:07 +0000 (+0000) Subject: * sb-mixi.el (shimbun-get-headers): Use `mixi-bbs-p'. X-Git-Tag: mixi-el-1_0_0~145 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e6e8d3c107e4d888dceebce2655e95c6a6cfbfb2;p=elisp%2Fmixi.git * 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 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,11 @@ 2006-12-25 OHASHI Akira + * 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 + * 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 --- 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.")))))