X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mixi-utils.el;fp=mixi-utils.el;h=aad03b8d0efb6e3ad0a57433d7b57e8d7359eeab;hb=c67537056dbe67ab33587553ca3098dfebb15576;hp=d2646d06c47928b75f386ba0a564bcf2dd2a7b83;hpb=84345397ddfa6530638c1467e3543c3268ff46e4;p=elisp%2Fmixi.git

diff --git a/mixi-utils.el b/mixi-utils.el
index d2646d0..aad03b8 100644
--- a/mixi-utils.el
+++ b/mixi-utils.el
@@ -1,6 +1,6 @@
 ;; mixi-utils.el --- Utilities for mixi object -*- coding: euc-jp -*-
 
-;; Copyright (C) 2007 OHASHI Akira
+;; Copyright (C) 2007, 2008 OHASHI Akira
 
 ;; Author: OHASHI Akira <bg66@koka-in.org>
 ;; Keywords: hypermedia
@@ -87,6 +87,8 @@
 		(mixi-bbs-p (mixi-comment-parent object)))
 	   (concat (mixi-comment-count object) " "
 		   (mixi-friend-nick (mixi-comment-owner object))))
+	  ((eq class 'mixi-release)
+	   "mixi±¿±Ä»ö̳¶É")
 	  (t
 	   (let ((owner (if (eq class 'mixi-log)
 			    (mixi-log-friend object)
@@ -114,6 +116,8 @@
 				     (mixi-comment-parent object))) "."))
 	   ((eq class 'mixi-log)
 	    (concat (mixi-friend-id (mixi-log-friend object)) "@"))
+	   ((eq class 'mixi-release)
+	    (concat (md5 (mixi-release-title object)) "@"))
 	   (t
 	    (concat (mixi-object-id object) "@"
 		    (if (eq class 'mixi-news)
@@ -144,6 +148,10 @@
 	   (mixi-expand-url (mixi-message-page object)))
 	  ((eq class 'mixi-news)
 	   (mixi-news-page object))
+	  ((eq class 'mixi-release)
+	   (let ((url (mixi-release-list-page)))
+	     (mixi-expand-url (substring url 0
+					 (string-match "?" url)))))
 	  ((eq class 'mixi-log)
 	   (mixi-expand-url (mixi-friend-page (mixi-log-friend object))))
 	  ((eq class 'mixi-friend)
@@ -240,7 +248,9 @@
 			  (mixi-friend-id (mixi-message-owner object))))
 		 ((or (eq class 'mixi-friend) (eq class 'mixi-log))
 		  (concat mixi-reply-to "message;"
-			  (mixi-friend-id object))))))))
+			  (mixi-friend-id object)))
+		 (t
+		  (concat mixi-reply-to "diary")))))))
 
 (defconst mixi-to-regexp
   "^mixi;\\([a-z]+\\);?\\([a-z0-9]+\\)?;?\\([0-9]+\\)?;?\\([0-9]+\\)?")