From a89062ee1310d1b00d5f72c031544bcfd816dbf4 Mon Sep 17 00:00:00 2001 From: bg66 Date: Fri, 10 Nov 2006 10:17:48 +0000 Subject: [PATCH] * sb-mixi.el: (shimbun-mixi-group-alist): Add `messages' to default value. (shimbun-mixi-make-xref): Follow the change above. --- ChangeLog | 6 ++++++ sb-mixi.el | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index c45f988..f7261d8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,11 @@ 2006-11-10 OHASHI Akira + * sb-mixi.el: (shimbun-mixi-group-alist): Add `messages' to default + value. + (shimbun-mixi-make-xref): Follow the change above. + +2006-11-10 OHASHI Akira + * sb-mixi.el: (shimbun-mixi-get-headers): Stop getting comment's headers when it was already shown. (shimbun-get-headers): Follow the change above. diff --git a/sb-mixi.el b/sb-mixi.el index 1e47c4b..cf775b1 100644 --- a/sb-mixi.el +++ b/sb-mixi.el @@ -34,6 +34,7 @@ (defcustom shimbun-mixi-group-alist '(("new-diaries" . mixi-get-new-diaries) ("new-comments" . mixi-get-new-comments) ("new-topics" . mixi-get-new-topics) + ("messages" . mixi-get-messages) ("my-diaries" . "/home.pl")) "*An alist of mixi shimbun group definition. Each element looks like (NAME . URL) or (NAME . FUNCTION). @@ -49,6 +50,7 @@ FUNCTION is the function for getting articles." (const :tag "New diaries" mixi-get-new-diaries) (const :tag "New comments" mixi-get-new-comments) (const :tag "New topics" mixi-get-new-topics) + (const :tag "Messages" mixi-get-messages) (function :tag "Other function"))))) (defcustom shimbun-mixi-page-articles 10 @@ -101,7 +103,9 @@ FUNCTION is the function for getting articles." (mixi-expand-url (mixi-topic-page object))) ((eq class 'mixi-comment) (concat (shimbun-mixi-make-xref (mixi-comment-parent object)) - "#comment"))))) + "#comment")) + ((eq class 'mixi-message) + (mixi-expand-url (mixi-message-page object)))))) (defun shimbun-mixi-get-headers (shimbun objects &optional range) (when objects -- 1.7.10.4