From f7ad106596dc29708fc1edeed10f03e064e4d50a Mon Sep 17 00:00:00 2001 From: bg66 Date: Sat, 7 Jun 2008 01:42:48 +0000 Subject: [PATCH] (mixi-search-diary-list-regexp): Follow the change of mixi. (mixi-search-diaries): Follow the change above. --- ChangeLog | 5 +++++ mixi.el | 44 ++++++++++++++++---------------------------- 2 files changed, 21 insertions(+), 28 deletions(-) diff --git a/ChangeLog b/ChangeLog index d541d23..e78c880 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2008-06-07 OHASHI Akira + + * mixi.el (mixi-search-diary-list-regexp): Follow the change of mixi. + (mixi-search-diaries): Follow the change above. + 2008-04-15 OHASHI Akira * mixi-el: Version 1.4.1 released. diff --git a/mixi.el b/mixi.el index 1ed860b..e273b5f 100644 --- a/mixi.el +++ b/mixi.el @@ -139,7 +139,7 @@ (autoload 'w3m-retrieve "w3m") (autoload 'url-retrieve-synchronously "url")) -(defconst mixi-revision "$Revision: 1.186 $") +(defconst mixi-revision "$Revision: 1.187 $") (defgroup mixi nil "API library for accessing to mixi." @@ -1371,26 +1371,14 @@ Increase this value when unexpected error frequently occurs." (mixi-url-encode-and-quote-percent-string ,keyword))) (defconst mixi-search-diary-list-regexp - "̾  Á° -\\(.*\\) - - - - -¥¿¥¤¥È¥ë -\\(.+\\) - - -ËÜ  Ê¸ -\\(.*\\) - - - -ºîÀ®Æü»þ -\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\) -¾ÜºÙ¤ò¸«¤ë - -") + "
  • + +
    +
    \\(.+\\)\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\)
    +

    \\(.*\\) +

    +
  • ") ;;;###autoload (defun mixi-search-diaries (keyword &optional range) @@ -1400,20 +1388,20 @@ 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 3 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-diary (mixi-make-friend (nth 8 item) (nth 0 item)) - (nth 7 item) + (mixi-make-diary (mixi-make-friend (nth 1 item) (nth 2 item)) + (nth 0 item) nil (encode-time - 0 (string-to-number (nth 6 item)) + 0 (string-to-number (nth 7 item)) + (string-to-number (nth 6 item)) (string-to-number (nth 5 item)) - (string-to-number (nth 4 item)) month year) - (nth 1 item) - (nth 2 item)))) + (nth 3 item) + (nth 8 item)))) items))) (defmacro mixi-post-diary-page () -- 1.7.10.4