Check if tweet is my own one.

ChangeLog

@@ -1,3 +1,8 @@
+2010-05-24  Naohiro Aota  <naota@elisp.net>
+
+	* twittering-mode.el (twittering-native-retweet): Check if tweet
+	is my own one.
+
 2010-05-22  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el: Use the coding-system `utf-8-unix' for

twittering-mode.el

@@ -5554,6 +5554,7 @@ managed by `twittering-mode'."
   (interactive)
   (let ((id (get-text-property (point) 'id))
 	(text (copy-sequence (get-text-property (point) 'text)))
+	(user (get-text-property (point) 'username))
 	(width (max 40 ;; XXX
 		    (- (frame-width)
 		       1 ;; margin for wide characters
@@ -5562,15 +5563,17 @@ managed by `twittering-mode'."
 		    )))
     (set-text-properties 0 (length text) nil text)
     (if id
-	(let ((mes (format "Retweet \"%s\"? "
-			   (if (< width (string-width text))
-			       (concat
-				(truncate-string-to-width text (- width 3))
-				"...")
-			     text))))
-	  (if (y-or-n-p mes)
-	      (twittering-call-api 'retweet `((id . ,id)))
-	    (message "Request canceled")))
+	(if (not (string= user twittering-username))
+	    (let ((mes (format "Retweet \"%s\"? "
+			       (if (< width (string-width text))
+				   (concat
+				    (truncate-string-to-width text (- width 3))
+				    "...")
+				 text))))
+	      (if (y-or-n-p mes)
+		  (twittering-call-api 'retweet `((id . ,id)))
+		(message "Request canceled")))
+	  (message "Cannot retweet your own tweet"))
       (message "No status selected"))))
 
 (defun twittering-favorite (&optional remove)