From: bg66 <bg66>
Date: Wed, 17 Jan 2007 00:52:21 +0000 (+0000)
Subject: * mixi.el: Avoid warnings when compiling.
X-Git-Tag: mixi-el-1_0_0~102
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5f17334b93489228ff82b56e800b4d8e018e0c81;p=elisp%2Fmixi.git

* mixi.el: Avoid warnings when compiling.
---

diff --git a/ChangeLog b/ChangeLog
index 883e792..d72029e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-01-17  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi.el: Avoid warnings when compiling.
+
 2007-01-16  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi.el (mixi-login-use-ssl): New user option.
diff --git a/mixi.el b/mixi.el
index 03a4c28..2935b30 100644
--- a/mixi.el
+++ b/mixi.el
@@ -119,6 +119,13 @@
 
 (eval-when-compile (require 'cl))
 
+;; Functions and variables which should be defined in the other module
+;; at run-time.
+(eval-when-compile
+  (defvar w3m-use-cookies)
+  (autoload 'w3m-decode-buffer "w3m")
+  (autoload 'w3m-retrieve "w3m"))
+
 (defgroup mixi nil
   "API library for accessing to mixi."
   :group 'hypermedia)
diff --git a/sb-mixi.el b/sb-mixi.el
index b9ae226..6761384 100644
--- a/sb-mixi.el
+++ b/sb-mixi.el
@@ -156,10 +156,11 @@ of mixi object."
 	(concat prefix subject suffix)))))
 
 (defun shimbun-mixi-make-from (object)
-  (if (eq class 'mixi-news)
-      (mixi-news-media object)
-    (let ((owner (mixi-object-owner object)))
-      (mixi-friend-nick owner))))
+  (let ((class (mixi-object-class object)))
+    (if (eq class 'mixi-news)
+	(mixi-news-media object)
+      (let ((owner (mixi-object-owner object)))
+	(mixi-friend-nick owner)))))
 
 (defun shimbun-mixi-make-date (object)
   (let* ((time (mixi-object-time object))