From: bg66 Date: Tue, 12 Feb 2008 06:26:28 +0000 (+0000) Subject: (mixi-news-finished-regexp): Follow the change of mixi. X-Git-Tag: mixi-el-1_4_0~3 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=84345397ddfa6530638c1467e3543c3268ff46e4;p=elisp%2Fmixi.git (mixi-news-finished-regexp): Follow the change of mixi. (mixi-news-title-regexp): Ditto. (mixi-news-media-time-regexp): Ditto. (mixi-news-content-regexp): Ditto. (mixi-news-list-regexp): Ditto. (mixi-get-news): Follow the change above. --- diff --git a/ChangeLog b/ChangeLog index 85ab0da..b4e6db5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2008-02-12 OHASHI Akira + + * mixi.el (mixi-news-finished-regexp): Follow the change of mixi. + (mixi-news-title-regexp): Ditto. + (mixi-news-media-time-regexp): Ditto. + (mixi-news-content-regexp): Ditto. + (mixi-news-list-regexp): Ditto. + (mixi-get-news): Follow the change above. + 2008-01-30 OHASHI Akira * mixi-el: Version 1.3.0 released. diff --git a/mixi.el b/mixi.el index 9dfc1a1..501d0a0 100644 --- a/mixi.el +++ b/mixi.el @@ -138,7 +138,7 @@ (autoload 'w3m-retrieve "w3m") (autoload 'url-retrieve-synchronously "url")) -(defconst mixi-revision "$Revision: 1.182 $") +(defconst mixi-revision "$Revision: 1.183 $") (defgroup mixi nil "API library for accessing to mixi." @@ -2837,21 +2837,19 @@ Increase this value when unexpected error frequently occurs." "&media_id=" (mixi-news-media-id ,news))) (defconst mixi-news-finished-regexp - "¿½¤·Ìõ¤´¤¶¤¤¤Þ¤»¤ó¤¬¡¢¤³¤Î¥Ë¥å¡¼¥¹¤Ï·ÇºÜ¤¬½ªÎ»¤·¤¿¤«¡¢URL¤¬´Ö°ã¤Ã¤Æ¤¤¤¤¤ë¤¿¤á¤´Í÷¤¤¤¿¤À¤±¤Þ¤»¤ó¡£") + "

¢¨¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬¡¢¤³¤Î¥Ë¥å¡¼¥¹¤Ï·ÇºÜ´ü´Ö¤¬½ªÎ»¤·¤¿¤«¡¢URL¤¬´Ö°ã¤Ã¤Æ¤¤¤ë¤¿¤á¤´Í÷¤¤¤¿¤À¤±¤Þ¤»¤ó¡£¾Ü¤·¤¯¤Ï¤³¤Á¤é¤ò¤´Í÷¤¯¤À¤µ¤¤¡£

") (defconst mixi-news-title-regexp - "\\(.+\\)\\( -\\)?") + "
+

\\(.+\\)

") (defconst mixi-news-media-time-regexp - "(\\(.+\\) - \\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\))") + "

¡Ê\\(.+\\) - \\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\)¡Ë

") (defconst mixi-news-content-regexp - " - + "
\\(.+\\) -
-\\(.* -\\)? -\\(\\|
\\)") + +\\(
+
\\|
\\)") (defun mixi-realize-news (news) "Realize a NEWS." @@ -2984,14 +2982,9 @@ Increase this value when unexpected error frequently occurs." "&type=bn")) (defconst mixi-news-list-regexp - " -¡¦ -\\(.+\\) -\\(\\|\\) - - -\\(.+\\) -\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\)") + "

¡¦ \\(.+\\)\"\"

+\\(.+\\) +\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\)") ;;;###autoload (defun mixi-get-news (category sort &optional range) @@ -3006,17 +2999,17 @@ Increase this value when unexpected error frequently occurs." (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)))) + (let ((month-of-item (string-to-number (nth 4 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) + (mixi-make-news (nth 1 item) (nth 0 item) (nth 3 item) (encode-time - 0 (string-to-number (nth 9 item)) - (string-to-number (nth 8 item)) - (string-to-number (nth 7 item)) + 0 (string-to-number (nth 7 item)) + (string-to-number (nth 6 item)) + (string-to-number (nth 5 item)) month year) - (nth 3 item)))) + (nth 2 item)))) items))) (provide 'mixi)