-(defun shimbun-mixi-make-date (object)
- (let* ((time (mixi-object-time object))
- (cts (current-time-string time))
- (day-of-week (substring cts 0 3))
- (month (substring cts 4 7)))
- (concat day-of-week ", "
- (format-time-string "%d" time) " "
- month " "
- (format-time-string "%Y %H:%M:%S %z" time))))
-
-(defun shimbun-mixi-make-message-id (object)
- (let ((class (mixi-object-class object)))
- (concat "<"
- (format-time-string "%Y%m%d%H%M" (mixi-object-time object)) "."
- (if (eq class 'mixi-comment)
- (concat (mixi-friend-id (mixi-comment-owner object)) "@"
- (mixi-object-id (mixi-comment-parent object)) "."
- (mixi-friend-id (mixi-object-owner
- (mixi-comment-parent object))) ".")
- (concat (mixi-object-id object) "@"
- (mixi-object-id (mixi-object-owner object)) "."))
- (mixi-object-name object) ".mixi.jp"
- ">")))
-
-(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)))))