From e2d3415c7928b67e9c0091aca2ecc2b7d6c24682 Mon Sep 17 00:00:00 2001 From: Daiki 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" -- 2.25.1