+ (let ((class (mixi-object-class object)))
+ (cond ((eq class 'mixi-event)
+ (let ((limit (mixi-event-limit object)))
+ (setq limit (if limit
+ (format-time-string "%Yǯ%m·î%dÆü" limit)
+ "»ØÄê¤Ê¤·"))
+ (concat "<dl>"
+ "<dt>³«ºÅÆü»þ¡§</dt>"
+ "<dd>" (mixi-event-date object) "</dd>\n"
+ "<dt>³«ºÅ¾ì½ê¡§</dt>"
+ "<dd>" (mixi-event-place object) "</dd>\n"
+ "<dt>¾ÜºÙ¡§</dt>"
+ "<dd>" (mixi-event-detail object) "</dd>\n"
+ "<dt>Ê罸´ü¸Â¡§</dt>"
+ "<dd>" limit "</dd>\n"
+ "<dt>»²²Ã¼Ô¡§</dt>"
+ "<dd>" (mixi-event-members object) "</dd>\n"
+ "</dl>")))
+ ((eq class 'mixi-friend)
+ (if (mixi-object-realized-p object)
+ (let ((sex (if (eq (mixi-friend-sex object) 'male) "ÃË" "½÷"))
+ (age (number-to-string (mixi-friend-age object)))
+ (birthday
+ (concat (mapconcat (lambda (number)
+ (number-to-string number))
+ (mixi-friend-birthday object) "·î")
+ "Æü"))
+ (blood-type (symbol-name
+ (mixi-friend-blood-type object)))
+ (hobby (mapconcat 'identity
+ (mixi-friend-hobby object) ", ")))
+ (concat "<dl>"
+ "<dt>̾Á°¡§</dt>"
+ "<dd>" (mixi-friend-name object) "</dd>\n"
+ "<dt>ÀÊÌ¡§</dt>"
+ "<dd>" sex "À</dd>\n"
+ "<dt>¸½½»½ê¡§</dt>"
+ "<dd>" (mixi-friend-address object) "</dd>\n"
+ "<dt>ǯÎð¡§</dt>"
+ "<dd>" age "ºÐ</dd>\n"
+ "<dt>ÃÂÀ¸Æü¡§</dt>"
+ "<dd>" birthday "</dd>\n"
+ "<dt>·ì±Õ·¿¡§</dt>"
+ "<dd>" blood-type "·¿</dd>\n"
+ "<dt>½Ð¿ÈÃÏ¡§</dt>"
+ "<dd>" (mixi-friend-birthplace object) "</dd>\n"
+ "<dt>¼ñÌ£¡§</dt>"
+ "<dd>" hobby "</dd>\n"
+ "<dt>¿¦¶È¡§</dt>"
+ "<dd>" (mixi-friend-job object) "</dd>\n"
+ "<dt>½ê°¡§</dt>"
+ "<dd>" (mixi-friend-organization object) "</dd>\n"
+ "<dt>¼«¸Ê¾Ò²ð¡§</dt>"
+ "<dd>" (mixi-friend-profile object) "</dd>\n"
+ "</dl>"))
+ (concat "<a href=\"" (shimbun-mixi-make-xref object)
+ "\">¥×¥í¥Õ¥£¡¼¥ë¤òɽ¼¨¤¹¤ë</a>")))
+ (t (mixi-object-content object)))))
+
+(defun shimbun-mixi-make-reply-to (object)
+ (setq shimbun-mixi-reply-to "mixi;")
+ (let ((class (mixi-object-class object)))
+ (setq shimbun-mixi-reply-to
+ (concat
+ (cond ((eq class 'mixi-diary)
+ (concat shimbun-mixi-reply-to "comment;diary;"
+ (mixi-friend-id (mixi-diary-owner object)) ";"
+ (mixi-diary-id object)))
+ ((mixi-bbs-p object)
+ (concat shimbun-mixi-reply-to "comment;"
+ (mixi-object-name object) ";"
+ (mixi-community-id (mixi-bbs-community object)) ";"
+ (mixi-bbs-id object)))
+ ((eq class 'mixi-community)
+ (concat shimbun-mixi-reply-to "topic;"
+ (mixi-community-id object)))
+ ((or (eq class 'mixi-news) (eq object (mixi-make-me)))
+ (concat shimbun-mixi-reply-to "diary"))
+ ((eq class 'mixi-message)
+ (concat shimbun-mixi-reply-to "message;"
+ (mixi-friend-id (mixi-message-owner object))))
+ ((or (eq class 'mixi-friend) (eq class 'mixi-log))
+ (concat shimbun-mixi-reply-to "message;"
+ (mixi-friend-id object))))))))