From 259aa9b55b52001a2941044531e53d8d6a29c67a Mon Sep 17 00:00:00 2001 From: bg66 Date: Sun, 14 Jan 2007 01:16:58 +0000 Subject: [PATCH] Fix indentation. --- mixi.el | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) 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) -- 1.7.10.4