projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cc613e1
)
(riece-twitter-update): Check riece-twitter-credential is set.
author
Daiki Ueno
<ueno@unixuser.org>
Wed, 6 Jun 2007 09:10:20 +0000
(09:10 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Wed, 6 Jun 2007 09:10:20 +0000
(09:10 +0000)
lisp/riece-twitter.el
patch
|
blob
|
history
diff --git
a/lisp/riece-twitter.el
b/lisp/riece-twitter.el
index
9726069
..
a93e9fc
100644
(file)
--- a/
lisp/riece-twitter.el
+++ b/
lisp/riece-twitter.el
@@
-59,7
+59,13
@@
(defun riece-twitter-update (status)
"Update your status."
(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
(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"
"-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
"-d" "source=riece"
"-d" (concat "status="
(riece-twitter-escape-string