-If OBJECT is diary or BBS or message:
-
- <date$id.class$owner-id.owner-class@mixi.jp>
-
-If OBJECT is log:
-
- <date$id.class@mixi.jp>
-
-The others:
-
- <id.class@mixi.jp>"
- (let ((class (mixi-object-class object)))
- (concat "<"
- (unless (or (eq class 'mixi-friend) (eq class 'mixi-community))
- (format-time-string "%Y%m%d%H%M." (mixi-object-time object)))
- (mapconcat (lambda (object)
- (concat (mixi-object-id object)
- "." (mixi-object-name object)))
- (cond ((eq class 'mixi-comment)
- (let ((parent (mixi-comment-parent object)))
- (list (mixi-comment-owner object)
- parent
- (if (eq (mixi-object-class parent)
- 'mixi-diary)
- (mixi-object-owner parent)
- (mixi-bbs-community parent)))))
- ((or (eq class 'mixi-diary)
- (eq class 'mixi-message))
- (list object (mixi-object-owner object)))
- ((mixi-bbs-p object)
- (list object (mixi-bbs-community object)))
- ((eq class 'mixi-log)
- (list (mixi-log-friend object)))
- (t
- (list object)))
- "$")
- shimbun-mixi-message-id-suffix ">")))
-
-(defun shimbun-mixi-make-xref (object)
- (let ((class (mixi-object-class object)))
- (cond ((eq class 'mixi-diary)
- (mixi-expand-url (mixi-diary-page object)))
- ((eq class 'mixi-topic)
- (mixi-expand-url (mixi-topic-page object)))
- ((eq class 'mixi-event)
- (mixi-expand-url (mixi-event-page object)))
- ((eq class 'mixi-comment)
- (concat (shimbun-mixi-make-xref (mixi-comment-parent object))
- "#comment"))
- ((eq class 'mixi-message)
- (mixi-expand-url (mixi-message-page object))))))
-
-(defun shimbun-mixi-make-body (object)
- (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>"
- "<dt>³«ºÅ¾ì½ê¡§</dt>"
- "<dd>" (mixi-event-place object) "</dd>"
- "<dt>¾ÜºÙ¡§</dt>"
- "<dd>" (mixi-event-detail object) "</dd>"
- "<dt>Ê罸´ü¸Â¡§</dt>"
- "<dd>" limit "</dd>"
- "<dt>»²²Ã¼Ô¡§</dt>"
- "<dd>" (mixi-event-members object) "</dd></dl>")))
- (t (mixi-object-content object)))))