From: bg66 Date: Wed, 17 Jan 2007 10:40:44 +0000 (+0000) Subject: * mixi.el: (mixi-realize-message): Follow the change of mixi. X-Git-Tag: mixi-el-1_0_0~100 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=42bfd55e4af533a013f67c2d2fba22e400bcceb8;p=elisp%2Fmixi.git * mixi.el: (mixi-realize-message): Follow the change of mixi. --- diff --git a/ChangeLog b/ChangeLog index 63e0c4b..ad7dea0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2007-01-17 OHASHI Akira + * mixi.el: (mixi-realize-message): Follow the change of mixi. + +2007-01-17 OHASHI Akira + * mixi.el: (with-mixi-retrieve): Don't bind `buffer' variable. (with-mixi-post-form): Ditto. (mixi-get-matched-items): Follow the change above. diff --git a/mixi.el b/mixi.el index e65181a..ed00996 100644 --- a/mixi.el +++ b/mixi.el @@ -2370,10 +2370,10 @@ Increase this value when unexpected error frequently occurs." (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]+\\)ʬ  ") +(defconst mixi-message-title-regexp +"·ï\\(¡¡\\| \\)̾ : \\(.+\\)\n?") (defconst mixi-message-content-regexp "\\(.+\\)") @@ -2386,9 +2386,6 @@ Increase this value when unexpected error frequently occurs." (mixi-make-friend (match-string 2) (match-string 3))) (mixi-realization-error 'cannot-find-owner message)) - (if (re-search-forward mixi-message-title-regexp nil t) - (mixi-message-set-title message (match-string 2)) - (mixi-realization-error 'cannot-find-title message)) (if (re-search-forward mixi-message-time-regexp nil t) (mixi-message-set-time message (encode-time 0 (string-to-number (match-string 6)) @@ -2397,6 +2394,9 @@ Increase this value when unexpected error frequently occurs." (string-to-number (match-string 3)) (string-to-number (match-string 2)))) (mixi-realization-error 'cannot-find-time message)) + (if (re-search-forward mixi-message-title-regexp nil t) + (mixi-message-set-title message (match-string 2)) + (mixi-realization-error 'cannot-find-title message)) (if (re-search-forward mixi-message-content-regexp nil t) (mixi-message-set-content message (match-string 1)) (mixi-realization-error 'cannot-find-content message)))