* COMPILE.in: Rename from `COMPILE'.
[elisp/mixi.git] / mixi-utils.el
index 58f76d7..8008f8e 100644 (file)
@@ -1,4 +1,4 @@
-;; mixi-utils.el --- Utilities for mixi object
+;; mixi-utils.el --- Utilities for mixi object -*- coding: euc-jp -*-
 
 ;; Copyright (C) 2007 OHASHI Akira
 
                 (subject (mixi-object-title object))
                 (suffix (when add-parent
                           (concat " ("
-                                  (if (eq class 'mixi-diary)
-                                      (mixi-friend-nick
-                                       (mixi-diary-owner object))
-                                    (mixi-community-name
-                                     (mixi-bbs-community object)))
+                                  (cond ((eq class 'mixi-diary)
+                                         (mixi-friend-nick
+                                          (mixi-diary-owner object)))
+                                        ((eq class 'mixi-news)
+                                         (mixi-news-media object))
+                                        (t
+                                         (mixi-community-name
+                                          (mixi-bbs-community object))))
                                   ")"))))
             (concat prefix subject suffix))))))