From dd46307e6ec5ca9595963dc5d42aa109b8d3af0e Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 29 May 2007 03:03:58 +0000 Subject: [PATCH] Fixed. --- lisp/riece-twitter.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) 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" -- 1.7.10.4