From: bg66 <bg66>
Date: Fri, 20 Oct 2006 08:54:23 +0000 (+0000)
Subject: * mixi.el (mixi-login): Tiny fix.
X-Git-Tag: cache-file-branchpoint~64
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0d82babc73147c6f5835e8a753f8c407f2e603b5;p=elisp%2Fmixi.git

* mixi.el (mixi-login): Tiny fix.
(mixi-accept-adult-contents): Fix docs.
---

diff --git a/ChangeLog b/ChangeLog
index 029d65c..7a2bb79 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2006-10-20  OHASHI Akira  <bg66@koka-in.org>
 
+	* mixi.el (mixi-login): Tiny fix.
+	(mixi-accept-adult-contents): Fix docs.
+
+2006-10-20  OHASHI Akira  <bg66@koka-in.org>
+
 	* mixi.el (mixi-login): Return an error when `w3m-use-cookies' is nil.
 
 2006-10-20  OHASHI Akira  <bg66@koka-in.org>
diff --git a/mixi.el b/mixi.el
index 6a60607..2ad1a37 100644
--- a/mixi.el
+++ b/mixi.el
@@ -128,7 +128,7 @@
   :group 'mixi)
 
 (defcustom mixi-accept-adult-contents t
-  "*"
+  "*If non-nil, accept to access to the adult contents."
   :type 'boolean
   :group 'mixi)
 
@@ -209,8 +209,6 @@ Increase this value when unexpected error frequently occurs."
 		 (const :tag "Infinity" nil))
   :group 'mixi)
 
-;; FIXME: defcustom regexp.
-
 (defcustom mixi-verbose t
   "*Flag controls whether `mixi' should be verbose.
 If it is non-ni, the `w3m-verbose' variable will be bound to nil
@@ -270,12 +268,11 @@ while `mixi' is waiting for a server's response."
 		   (read-from-minibuffer (mixi-message "Login Email: "))))
 	(password (or password mixi-default-password
 		      (read-passwd (mixi-message "Login Password: ")))))
-    (let (buffer)
-      (setq buffer (mixi-retrieve "/login.pl"
-				  (concat "email=" email
-					  "&password=" password
-					  "&next_url=/home.pl"
-					  "&sticky=on")))
+    (let ((buffer (mixi-retrieve "/login.pl"
+				 (concat "email=" email
+					 "&password=" password
+					 "&next_url=/home.pl"
+					 "&sticky=on"))))
       (unless (string-match "url=/check\\.pl\\?n=" buffer)
 	(error (mixi-message "Cannot login")))
       (setq buffer (mixi-retrieve "/check.pl?n=home.pl"))
@@ -343,7 +340,6 @@ while `mixi' is waiting for a server's response."
     (buffer-string)))
 
 ;; Cache.
-;; FIXME: Is Caches saved to files?
 
 (defun mixi-cache-expired-p (object)
   "Whether a cache of OBJECT is expired."