- (if (eq class 'mixi-news)
- (mixi-news-media object)
- (let ((owner (if (eq class 'mixi-log)
- (mixi-log-friend object)
- (mixi-object-owner object))))
- (mixi-friend-nick owner)))))
+ (cond ((eq class 'mixi-news)
+ (mixi-news-media object))
+ ((and add-comment-count
+ (eq class 'mixi-comment)
+ (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)
+ (mixi-object-owner object))))
+ (mixi-friend-nick owner))))))
+
+(defun mixi-make-time (object)
+ (with-mixi-class object
+ (if (eq class 'mixi-echo)
+ (let ((post-time (mixi-echo-post-time object)))
+ (encode-time
+ (string-to-number (substring post-time 12 14))
+ (string-to-number (substring post-time 10 12))
+ (string-to-number (substring post-time 8 10))
+ (string-to-number (substring post-time 6 8))
+ (string-to-number (substring post-time 4 6))
+ (string-to-number (substring post-time 0 4))))
+ (mixi-object-time object))))