From: bg66 Date: Thu, 21 Aug 2008 02:19:02 +0000 (+0000) Subject: (riece-mixi-message-filter): Rename from X-Git-Tag: mixi-el-2_0_0~4 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c73fdb7f7f5ab5319afbce969ec9b2ab10c9c421;p=elisp%2Fmixi.git (riece-mixi-message-filter): Rename from `riece-mixi-message-filter-function' and return `message'. (riece-mixi-insinuate): Follow the change above. (riece-mixi-uninstall): Ditto. --- diff --git a/ChangeLog b/ChangeLog index 0328558..609ea58 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2008-08-21 OHASHI Akira + + * riece-mixi.el (riece-mixi-message-filter): Rename from + `riece-mixi-message-filter-function' and return `message'. + (riece-mixi-insinuate): Follow the change above. + (riece-mixi-uninstall): Ditto. + 2008-08-20 OHASHI Akira * riece-mixi.el (riece-mixi-message-filter-function): New function. diff --git a/riece-mixi.el b/riece-mixi.el index 6c4ae4e..865e1e7 100644 --- a/riece-mixi.el +++ b/riece-mixi.el @@ -139,23 +139,24 @@ If they exist, send them as notice to the corresponding channel." riece-mixi-check-alist) (setq riece-mixi-last-check (current-time)))) -(defun riece-mixi-message-filter-function (message) +(defun riece-mixi-message-filter (message) (when (and (get 'riece-mixi 'riece-addon-enabled) (riece-message-own-p message) (eq 'action (riece-message-type message))) - (mixi-post-echo (riece-message-text message)))) + (mixi-post-echo (riece-message-text message))) + message) (defun riece-mixi-insinuate () (add-hook 'riece-after-display-message-functions 'riece-mixi-display-message-function) (add-hook 'riece-message-filter-functions - 'riece-mixi-message-filter-function)) + 'riece-mixi-message-filter)) (defun riece-mixi-uninstall () (remove-hook 'riece-after-display-message-functions 'riece-mixi-display-message-function) (remove-hook 'riece-message-filter-functions - 'riece-mixi-message-filter-function)) + 'riece-mixi-message-filter)) (defun riece-mixi-enable () (when riece-mixi-check-alist