From: ueno <ueno>
Date: Tue, 29 May 2007 03:03:58 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-4_0_0~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dd46307e6ec5ca9595963dc5d42aa109b8d3af0e;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-twitter.el b/lisp/riece-twitter.el
index e40d211..3555f5c 100644
--- a/lisp/riece-twitter.el
+++ b/lisp/riece-twitter.el
@@ -44,15 +44,15 @@
   :type 'boolean)
 
 (defun riece-twitter-message-filter (message)
-  (let ((credential
-	 (or riece-twitter-credential
-	     (concat (read-string "Twitter username: ") ":"
-		     (read-passwd "Twitter password: ")))))
-    (if (and riece-twitter-cache-credential
-	     (not (eq credential riece-twitter-credential)))
-	(setq riece-twitter-credential credential))
-    (if (and (riece-message-own-p message)
-	     (eq 'action (riece-message-type message)))
+  (if (and (riece-message-own-p message)
+	   (eq 'action (riece-message-type message)))
+      (let ((credential
+	     (or riece-twitter-credential
+		 (concat (read-string "Twitter username: ") ":"
+			 (read-passwd "Twitter password: ")))))
+	(if (and riece-twitter-cache-credential
+		 (not (eq credential riece-twitter-credential)))
+	    (setq riece-twitter-credential credential))
 	(start-process
 	 "curl" nil "curl"
 	 "-H" "X-Twitter-Client: Riece"