From: Daiki Ueno <ueno@unixuser.org>
Date: Tue, 29 May 2007 03:03:58 +0000 (+0000)
Subject: Fixed.
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=e2d3415c7928b67e9c0091aca2ecc2b7d6c24682;hp=39a549aa5e223951c0046b6757ff9f57b91c475f;ds=sidebyside

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"