* mixi.el: Avoid warnings when compiling.

diff --git a/ChangeLog b/ChangeLog
index 883e792..d72029e 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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))