* riece-mixi.el (riece-mixi-reply-to-only-me): New user option.

(riece-mixi-display-message-function): Use it.

* riece-mixi.el (riece-mixi-enabled): Abolish.
(riece-mixi-display-message-function): Follow the change above.
(riece-mixi-check): Ditto.
(riece-mixi-enable): Ditto.
(riece-mixi-disable): Ditto.

diff --git a/ChangeLog b/ChangeLog
index d2b1e48..1e82a1e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,19 @@
 2007-03-06  OHASHI Akira  <bg66@koka-in.org>
 
+       * riece-mixi.el (riece-mixi-reply-to-only-me): New user option.
+       (riece-mixi-display-message-function): Use it.
+
+       * riece-mixi.el (riece-mixi-enabled): Abolish.
+       (riece-mixi-display-message-function): Follow the change above.
+       (riece-mixi-check): Ditto.
+       (riece-mixi-enable): Ditto.
+       (riece-mixi-disable): Ditto.
+
+2007-03-06  OHASHI Akira  <bg66@koka-in.org>
+
        * riece-mixi.el: New file.
        * configure.ac: Add AC_CHECK_RIECE and HAVE_RIECE.
-       * acinclude.m4 Add AC_CHECK_RIECE.
+       * acinclude.m4: Add AC_CHECK_RIECE.
        * Makefile.am (MODULES_ALL): Abolish.
        (MODULES_SHIMBUN): New variable.
        (MODULES_RIECE): Ditto.

diff --git a/riece-mixi.el b/riece-mixi.el
index a5002fb..22bfe04 100644 (file)
--- a/riece-mixi.el
+++ b/riece-mixi.el
@@ -25,6 +25,9 @@
 
 ;; NOTE: This is an add-on module for Riece.
 
+;; If you have bug reports and/or suggestions for improvement, please
+;; send them via <URL:http://mixi.jp/view_community.pl?id=1596390>.
+
 ;;; Code:
 
 (require 'mixi)
@@ -54,6 +57,11 @@
   :type 'string
   :group 'riece-mixi)
 
+(defcustom riece-mixi-reply-to-only-me nil
+  "*If non-nil, reply to only my messages."
+  :type 'boolean
+  :group 'riece-mixi)
+
 (defcustom riece-mixi-check-alist nil
   "*An alist for checking to detect new articles.
 Each element looks like (CHANNEL . URL) or (CHANNEL . FUNCTION).
@@ -82,8 +90,6 @@ of mixi object."
 (defvar riece-mixi-timer nil)
 (defvar riece-mixi-last-check nil)
 
-(defvar riece-mixi-enabled nil)
-
 (defconst riece-mixi-description
   "Riece integration for mixi.")
 
@@ -100,7 +106,10 @@ of mixi object."
     (error nil)))
 
 (defun riece-mixi-display-message-function (message)
-  (when (and riece-mixi-enabled
+  (when (and (get 'riece-mixi 'riece-addon-enabled)
+            (or (not riece-mixi-reply-to-only-me)
+                (and riece-mixi-reply-to-only-me
+                     (riece-message-own-p message)))
             (string-match riece-mixi-regexp (riece-message-text message)))
     (let* ((url (match-string 1 (riece-message-text message)))
           (object (mixi-make-object-from-url url)))
@@ -119,7 +128,7 @@ of mixi object."
 (defun riece-mixi-check ()
   "Check to detect new articles.
 If they exist, send them as notice to the corresponding channel."
-  (when riece-mixi-enabled
+  (when (get 'riece-mixi 'riece-addon-enabled)
     (mapc (lambda (list)
            (let ((target (riece-parse-identity (car list)))
                  (url-or-function (cdr list)))
@@ -151,7 +160,6 @@ If they exist, send them as notice to the corresponding channel."
            'riece-mixi-display-message-function))
 
 (defun riece-mixi-enable ()
-  (setq riece-mixi-enabled t)
   (when riece-mixi-check-alist
     (setq riece-mixi-timer
          (run-at-time riece-mixi-timer-step riece-mixi-timer-step
@@ -159,7 +167,6 @@ If they exist, send them as notice to the corresponding channel."
     (setq riece-mixi-last-check (current-time))))
 
 (defun riece-mixi-disable ()
-  (setq riece-mixi-enabled nil)
   (when (timerp riece-mixi-timer)
     (cancel-timer riece-mixi-timer)
     (setq riece-mixi-timer nil)))