From 6c5495e1bf62fe20962872c3adf742abdb819168 Mon Sep 17 00:00:00 2001 From: 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