From 9427f9ee4ec252be36b6321e7131fe93fa4c212c Mon Sep 17 00:00:00 2001 From: bg66 Date: Wed, 20 Jun 2007 09:12:32 +0000 Subject: [PATCH] (mixi-diary-list-regexp): Follow the change of mixi. (mixi-get-diaries): Follow the change above. (mixi-news-finished-regexp): Follow the change of mixi. --- ChangeLog | 6 ++++++ mixi.el | 27 +++++++++++---------------- 2 files changed, 17 insertions(+), 16 deletions(-) diff --git a/ChangeLog b/ChangeLog index a76d3ae..2cffac9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2007-06-20 OHASHI Akira + + * mixi.el (mixi-diary-list-regexp): Follow the change of mixi. + (mixi-get-diaries): Follow the change above. + (mixi-news-finished-regexp): Follow the change of mixi. + 2007-06-19 OHASHI Akira * mixi.el (mixi-post-key-regexp): Follow the change of mixi. diff --git a/mixi.el b/mixi.el index 91b7fd8..32672e0 100644 --- a/mixi.el +++ b/mixi.el @@ -1265,7 +1265,7 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-diary-list-regexp " -\\([0-9]+\\)·î\\([0-9]+\\)Æü
\\([0-9]+\\):\\([0-9]+\\)
\\(
\\|\\) +\\([0-9]+\\)ǯ
\\([0-9]+\\)·î\\([0-9]+\\)Æü
\\([0-9]+\\):\\([0-9]+\\)
\\(
\\|\\)  \\(.*\\)") ;;;###autoload @@ -1283,21 +1283,16 @@ Increase this value when unexpected error frequently occurs." (signal 'wrong-type-argument (list 'mixi-friend-p friend))) (let ((items (mixi-get-matched-items (mixi-diary-list-page friend) mixi-diary-list-regexp - range)) - (year (nth 5 (decode-time (current-time)))) - (month (nth 4 (decode-time (current-time))))) + range))) (mapcar (lambda (item) - (let ((month-of-item (string-to-number (nth 0 item)))) - (when (> month-of-item month) - (decf year)) - (setq month month-of-item) - (mixi-make-diary friend (nth 5 item) nil - (encode-time - 0 (string-to-number (nth 3 item)) - (string-to-number (nth 2 item)) - (string-to-number (nth 1 item)) - month year) - (nth 6 item)))) + (mixi-make-diary friend (nth 6 item) nil + (encode-time + 0 (string-to-number (nth 4 item)) + (string-to-number (nth 3 item)) + (string-to-number (nth 2 item)) + (string-to-number (nth 1 item)) + (string-to-number (nth 0 item))) + (nth 7 item))) items)))) (defmacro mixi-new-diary-list-page () @@ -2790,7 +2785,7 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-news-finished-regexp - " ¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¤¬¡¢¤³¤Î¥Ë¥å¡¼¥¹¤Ï·ÇºÜ½ªÎ»¤·¤Þ¤·¤¿¡£") + "¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¤¬¡¢¤³¤Î¥Ë¥å¡¼¥¹¤Ï·ÇºÜ¤¬½ªÎ»¤·¤¿¤«¡¢URL¤¬´Ö°ã¤Ã¤Æ¤¤¤¤¤ë¤¿¤á¤´Í÷¤¤¤¿¤À¤±¤Þ¤»¤ó¡£") (defconst mixi-news-title-regexp "\\(.+\\)\\( \\)?") -- 1.7.10.4