Fixed.
authorueno <ueno>
Tue, 29 May 2007 03:03:58 +0000 (03:03 +0000)
committerueno <ueno>
Tue, 29 May 2007 03:03:58 +0000 (03:03 +0000)
lisp/riece-twitter.el

index e40d211..3555f5c 100644 (file)
   :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"