From: bg66 <bg66>
Date: Sun, 14 Jan 2007 01:16:58 +0000 (+0000)
Subject: Fix indentation.
X-Git-Tag: mixi-el-1_0_0~106
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=259aa9b55b52001a2941044531e53d8d6a29c67a;p=elisp%2Fmixi.git

Fix indentation.
---

diff --git a/mixi.el b/mixi.el
index 7c29177..d19d6a7 100644
--- a/mixi.el
+++ b/mixi.el
@@ -2787,24 +2787,24 @@ Increase this value when unexpected error frequently occurs."
   "Get news of CATEGORY."
   (unless (mixi-news-category-p category)
     (signal 'wrong-type-argument (list 'mixi-news-category-p category)))
-    (let ((items (mixi-get-matched-items (mixi-news-list-page category)
-					 mixi-news-list-regexp
-					 range))
-	  (year (nth 5 (decode-time (current-time))))
-	  (month (nth 4 (decode-time (current-time)))))
-      (mapcar (lambda (item)
-		(let ((month-of-item (string-to-number (nth 6 item))))
-		  (when (> month-of-item month)
-		    (decf year))
-		  (setq month month-of-item)
-		  (mixi-make-news (nth 2 item) (nth 1 item) (nth 5 item)
-				   (encode-time
-				    0 (string-to-number (nth 9 item))
-				    (string-to-number (nth 8 item))
-				    (string-to-number (nth 7 item))
-				    month year)
-				   (nth 3 item))))
-	      items)))
+  (let ((items (mixi-get-matched-items (mixi-news-list-page category)
+				       mixi-news-list-regexp
+				       range))
+	(year (nth 5 (decode-time (current-time))))
+	(month (nth 4 (decode-time (current-time)))))
+    (mapcar (lambda (item)
+	      (let ((month-of-item (string-to-number (nth 6 item))))
+		(when (> month-of-item month)
+		  (decf year))
+		(setq month month-of-item)
+		(mixi-make-news (nth 2 item) (nth 1 item) (nth 5 item)
+				(encode-time
+				 0 (string-to-number (nth 9 item))
+				 (string-to-number (nth 8 item))
+				 (string-to-number (nth 7 item))
+				 month year)
+				(nth 3 item))))
+	    items)))
 
 (provide 'mixi)