(twittering-retweet): if 'C-u' prefix is given, 'twittering-use-nativ…

…e-retweet' is temporarily reversed before use.

(twittering-follow): handle a prefix 'C-u' correctly.
(twittering-favorite): likewise.

ChangeLog

@@ -1,3 +1,11 @@
+2010-02-27  Satoshi Yatagawa  <yata_github@y.hauN.org>
+
+	* twittering-mode.el (twittering-retweet): If `C-u' prefix is
+	given, `twittering-use-native-retweet' is temporarily reversed
+	before use.
+	(twittering-follow): Handle a prefix `C-u' correctly.
+	(twittering-favorite): Likewise.
+
 2010-02-25  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-format-status): Use the return

twittering-mode.el

@@ -3070,11 +3070,14 @@ variable `twittering-status-format'."
 	    (delete-region (point-min) (point-max))
 	    (insert url)))))))
 
-(defun twittering-retweet ()
-  (interactive)
-  (if twittering-use-native-retweet
-      (twittering-native-retweet)
-    (twittering-organic-retweet)))
+(defun twittering-retweet (&optional arg)
+  (interactive "P")
+  (let ((use-native-retweet-flag (if arg
+				     (not twittering-use-native-retweet)
+				   twittering-use-native-retweet)))
+    (if use-native-retweet-flag
+	(twittering-native-retweet)
+      (twittering-organic-retweet))))
 
 (defun twittering-organic-retweet ()
   (interactive)
@@ -3110,7 +3113,7 @@ variable `twittering-status-format'."
 	(browse-url uri))))
 
 (defun twittering-follow (&optional remove)
-  (interactive)
+  (interactive "P")
   (let ((username (get-text-property (point) 'username))
 	(method (if remove "destroy" "create"))
 	(mes (if remove "unfollowing" "following")))
@@ -3150,7 +3153,7 @@ variable `twittering-status-format'."
       (message "No status selected"))))
 
 (defun twittering-favorite (&optional remove)
-  (interactive)
+  (interactive "P")
   (let ((id (get-text-property (point) 'id))
 	(text (get-text-property (point) 'text))
 	(width (max 40 ;; XXX