From: ueno <ueno>
Date: Wed, 6 Jun 2007 09:10:20 +0000 (+0000)
Subject: (riece-twitter-update): Check riece-twitter-credential is set.
X-Git-Tag: riece-5_0_0~46
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Friece.git;a=commitdiff_plain;h=6c5495e1bf62fe20962872c3adf742abdb819168

(riece-twitter-update): Check riece-twitter-credential is set.
---

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