From: bg66 <bg66>
Date: Fri, 10 Nov 2006 10:17:48 +0000 (+0000)
Subject: * sb-mixi.el: (shimbun-mixi-group-alist): Add `messages' to default
X-Git-Tag: cache-file-branchpoint~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a89062ee1310d1b00d5f72c031544bcfd816dbf4;p=elisp%2Fmixi.git

* sb-mixi.el: (shimbun-mixi-group-alist): Add `messages' to default
value.
(shimbun-mixi-make-xref): Follow the change above.
---

diff --git a/ChangeLog b/ChangeLog
index c45f988..f7261d8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2006-11-10  OHASHI Akira  <bg66@koka-in.org>
 
+	* 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  <bg66@koka-in.org>
+
 	* 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