From 6c5495e1bf62fe20962872c3adf742abdb819168 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 6 Jun 2007 09:10:20 +0000
Subject: [PATCH] (riece-twitter-update): Check riece-twitter-credential is
 set.

---
 lisp/riece-twitter.el |   10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lisp/riece-twitter.el b/lisp/riece-twitter.el
index 9726069..a93e9fc 100644
--- a/lisp/riece-twitter.el
+++ b/lisp/riece-twitter.el
@@ -59,7 +59,13 @@
 
 (defun riece-twitter-update (status)
   "Update your status."
-  (interactive "sStatus: ")
+  (interactive
+   (progn
+     (unless riece-twitter-credential
+       (error "%s"
+	      (substitute-command-keys
+	       "\\[riece-twitter-set-credential] to set your credential")))
+     (list (read-string "Status: "))))
   (message "Sending to Twitter...")
   (let ((process
 	 (start-process
@@ -67,7 +73,7 @@
 	  "-H" "X-Twitter-Client: Riece"
 	  "-H" (concat "X-Twitter-Client-Version: " riece-version-number)
 	  "-H" "X-Twitter-Client-URL: http://riece.nongnu.org/twitter.xml"
-	  "-u" credential
+	  "-u" riece-twitter-credential
 	  "-d" "source=riece"
 	  "-d" (concat "status="
 		       (riece-twitter-escape-string
-- 
1.7.10.4