From: bg66 <bg66>
Date: Fri, 28 Sep 2007 03:08:49 +0000 (+0000)
Subject: * mixi-utils.el (mixi-make-content): Fix for closed users.
X-Git-Tag: mixi-el-1_0_0~20
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=afc62a90859819a7695f6706ee0b67b6edeb5729;p=elisp%2Fmixi.git

* mixi-utils.el (mixi-make-content): Fix for closed users.

* sb-mixi.el (shimbun-mixi-get-profile-with-diary): New user option.
(shimbun-mixi-get-headers): Use it.
---

diff --git a/ChangeLog b/ChangeLog
index 3b87fea..377da6b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2007-09-28  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi-utils.el (mixi-make-content): Fix for closed users.
+
+	* sb-mixi.el (shimbun-mixi-get-profile-with-diary): New user option.
+	(shimbun-mixi-get-headers): Use it.
+
 2007-09-27  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi.el (mixi-url-retrieve): Add a URL to error messages.
diff --git a/mixi-utils.el b/mixi-utils.el
index 82b996b..34a1f07 100644
--- a/mixi-utils.el
+++ b/mixi-utils.el
@@ -168,12 +168,16 @@
 	  ((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) "·î")
-			      "Æü"))
+		     (age (if (numberp (mixi-friend-age object))
+			      (number-to-string (mixi-friend-age object))
+			    "??"))
+		     (birthday (if (mixi-friend-birthday object)
+				   (concat
+				    (mapconcat (lambda (number)
+						 (number-to-string number))
+					       (mixi-friend-birthday object)
+					       "·î") "Æü")
+				 "??·î??Æü"))
 		     (blood-type (symbol-name
 				  (mixi-friend-blood-type object)))
 		     (hobby (mapconcat 'identity
diff --git a/sb-mixi.el b/sb-mixi.el
index 1c2873b..3d6f744 100644
--- a/sb-mixi.el
+++ b/sb-mixi.el
@@ -118,6 +118,11 @@ of mixi object."
 			      (const :tag "Logs" mixi-get-logs)
 			      (function :tag "Other function")))))
 
+(defcustom shimbun-mixi-get-profile-with-diary t
+  "*If non-nil, get his/her profile together with diaries."
+  :group 'shimbun
+  :type 'boolean)
+
 ;; FIXME: Don't use this user option.
 (defcustom shimbun-mixi-page-articles 10
   "*How many articles are there in one page."
@@ -154,6 +159,11 @@ of mixi object."
     (catch 'stop
       (while objects
 	(let ((object (car objects)))
+	  (when (and shimbun-mixi-get-profile-with-diary
+		     (mixi-diary-p object))
+	    (let ((owner (mixi-diary-owner object)))
+	      (unless (mixi-object-realized-p owner)
+		(mixi-realize-friend owner))))
 	  (when (mixi-parent-p object)
 	    (let* ((comments (mixi-get-comments object range))
 		   (comment-headers (shimbun-mixi-get-headers shimbun