From: bg66 Date: Thu, 22 Feb 2007 08:28:09 +0000 (+0000) Subject: Fix the last change. X-Git-Tag: mixi-el-1_0_0~65 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9443267dab60ae19ddfa69e36ce38df8ab8860b9;p=elisp%2Fmixi.git Fix the last change. --- diff --git a/mixi-utils.el b/mixi-utils.el index f2bc944..e65c6d9 100644 --- a/mixi-utils.el +++ b/mixi-utils.el @@ -41,17 +41,17 @@ (put 'with-mixi-class 'lisp-indent-function 'defun) (put 'with-mixi-class 'edebug-form-spec '(body)) -(defun mixi-make-title (object &optional add-suffix) +(defun mixi-make-title (object &optional add-parent) (with-mixi-class object (cond ((eq class 'mixi-comment) (concat "Re: " (mixi-make-title - (mixi-comment-parent object) add-suffix))) + (mixi-comment-parent object) add-parent))) ((eq class 'mixi-log) (mixi-friend-nick (mixi-log-friend object))) (t (let ((prefix (when (eq class 'mixi-event) "[¥¤¥Ù¥ó¥È]")) (subject (mixi-object-title object)) - (suffix (when add-suffix + (suffix (when add-parent (concat " (" (if (eq class 'mixi-diary) (mixi-friend-nick