From: bg66 Date: Wed, 22 Nov 2006 10:18:47 +0000 (+0000) Subject: * mixi.el (mixi-message-owner-regexp): Fix regexp. X-Git-Tag: cache-file-branchpoint~4 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=891556f04a9d6f00a9e51eb80c75a4ffd850a95e;p=elisp%2Fmixi.git * mixi.el (mixi-message-owner-regexp): Fix regexp. (mixi-message-title-regexp): Ditto. (mixi-message-time-regexp): Ditto. (mixi-message-realize): Follow the change above. --- diff --git a/ChangeLog b/ChangeLog index bc51870..235644a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,12 @@ 2006-11-22 OHASHI Akira + * mixi.el (mixi-message-owner-regexp): Fix regexp. + (mixi-message-title-regexp): Ditto. + (mixi-message-time-regexp): Ditto. + (mixi-message-realize): Follow the change above. + +2006-11-22 OHASHI Akira + * mixi.el (mixi-log-list-regexp): Fix regexp. 2006-11-22 OHASHI Akira diff --git a/mixi.el b/mixi.el index 69dfacf..f2d9e05 100644 --- a/mixi.el +++ b/mixi.el @@ -1621,12 +1621,11 @@ Increase this value when unexpected error frequently occurs." "&box=" (mixi-message-box ,message))) (defconst mixi-message-owner-regexp - "º¹½Ð¿Í : \\(.*\\)") + "\\(º¹½Ð¿Í\\|°¸ Àè\\) : \\(.*\\)\\(\\|\\)") (defconst mixi-message-title-regexp - "·ï¡¡Ì¾ : \\(.+\\) -") +"·ï\\(¡¡\\| \\)̾ : \\(.+\\)\n?") (defconst mixi-message-time-regexp - "Æü¡¡ÉÕ : \\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\)»þ\\([0-9]+\\)ʬ  ") +"Æü\\(¡¡\\| \\)ÉÕ : \\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\)»þ\\([0-9]+\\)ʬ  ") (defconst mixi-message-content-regexp "\\(.+\\)") @@ -1636,19 +1635,19 @@ Increase this value when unexpected error frequently occurs." (with-mixi-retrieve (mixi-message-page message) (if (string-match mixi-message-owner-regexp buffer) (mixi-message-set-owner message - (mixi-make-friend (match-string 1 buffer) - (match-string 2 buffer))) + (mixi-make-friend (match-string 2 buffer) + (match-string 3 buffer))) (signal 'error (list 'cannot-find-owner message))) (if (string-match mixi-message-title-regexp buffer) - (mixi-message-set-title message (match-string 1 buffer)) + (mixi-message-set-title message (match-string 2 buffer)) (signal 'error (list 'cannot-find-title message))) (if (string-match mixi-message-time-regexp buffer) (mixi-message-set-time - message (encode-time 0 (string-to-number (match-string 5 buffer)) + message (encode-time 0 (string-to-number (match-string 6 buffer)) + (string-to-number (match-string 5 buffer)) (string-to-number (match-string 4 buffer)) (string-to-number (match-string 3 buffer)) - (string-to-number (match-string 2 buffer)) - (string-to-number (match-string 1 buffer)))) + (string-to-number (match-string 2 buffer)))) (signal 'error (list 'cannot-find-time message))) (if (string-match mixi-message-content-regexp buffer) (mixi-message-set-content message (match-string 1 buffer))