From 5f17334b93489228ff82b56e800b4d8e018e0c81 Mon Sep 17 00:00:00 2001 From: bg66 Date: Wed, 17 Jan 2007 00:52:21 +0000 Subject: [PATCH] * mixi.el: Avoid warnings when compiling. --- ChangeLog | 4 ++++ mixi.el | 7 +++++++ sb-mixi.el | 9 +++++---- 3 files changed, 16 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 883e792..d72029e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2007-01-17 OHASHI Akira + + * mixi.el: Avoid warnings when compiling. + 2007-01-16 OHASHI Akira * 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)) -- 1.7.10.4