Index: lang/elisp/twittering-mode/trunk/twittering-mode.el
===================================================================
--- lang/elisp/twittering-mode/trunk/twittering-mode.el (revision 136)
+++ lang/elisp/twittering-mode/trunk/twittering-mode.el (revision 137)
@@ -267,4 +267,5 @@
       (define-key km "\C-c\C-s" 'twittering-update-status-interactive)
       (define-key km "\C-c\C-e" 'twittering-erase-old-statuses)
+      (define-key km "\C-c\C-m" 'twittering-retweet)
       (define-key km "\C-m" 'twittering-enter)
       (define-key km "\C-c\C-l" 'twittering-update-lambda)
@@ -619,5 +620,6 @@
 	(add-text-properties 0 (length formatted-status)
 			     `(username ,(attr 'user-screen-name)
-					id ,(attr 'id))
+					id ,(attr 'id)
+					text ,(attr 'text))
 			     formatted-status)
 	formatted-status)
@@ -1100,4 +1102,13 @@
 	  (browse-url uri)))))
 
+(defun twittering-retweet ()
+  (interactive)
+  (let ((username (get-text-property (point) 'username))
+	(id (get-text-property (point) 'id))
+	(text (get-text-property (point) 'text)))
+    (when username
+	(twittering-update-status-from-minibuffer
+	 (concat "RT: " text " (via @" username ")") id))))
+
 (defun twittering-view-user-page ()
   (interactive)
Index: lang/elisp/twittering-mode/trunk/ChangeLog
===================================================================
--- lang/elisp/twittering-mode/trunk/ChangeLog (revision 136)
+++ lang/elisp/twittering-mode/trunk/ChangeLog (revision 137)
@@ -1,2 +1,8 @@
+2009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
+
+	* twittering-mode.el (twittering-mode-map)
+	(twittering-format-status, twittering-retweet): Add new feature
+	ReTweet
+
 2009-06-18  Alberto Garcia  <agarcia@igalia.com>
 
@@ -9,5 +15,5 @@
 	Code refactoring. No need to use (format) to convert a string.
 
-2009-06-18  Tsuyoshi CHO  <tsuyoshi_cho@yahoo.co.jp>
+2009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
 
 	* twittering-mode.el (twittering-status-format)