diff --git a/ChangeLog b/ChangeLog index 2d755174..2f7bc404 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2016-06-17 Tadashi MATSUO + + * twittering-mode.el: You can retweet your own tweets. + (twittering-native-retweet): retweet the given tweet without + regard to its author. + 2016-03-14 Tadashi MATSUO * twittering-mode.el: Render an ampersand as it is posted. An diff --git a/NEWS b/NEWS index ad735da8..683b2290 100644 --- a/NEWS +++ b/NEWS @@ -51,6 +51,8 @@ can be posted without errors, a tweet consisting of 116 and 24 numeric characters causes the following error; "Status is over 140 characters." +* Retweeting your own tweet. + You can retweet your own tweet. ### Bug fixes * Fix of invoking a hook twice for the same timeline. diff --git a/NEWS.ja b/NEWS.ja index e92bf82d..62aa66e7 100644 --- a/NEWS.ja +++ b/NEWS.ja @@ -48,6 +48,8 @@ - 115個の"&"と25個の数字からなるtweetは投稿可能ですが、116個の"&"と 24個の数字からなるtweetは"Status is over 140 characters."のエラー が起こり投稿できません。 +* 自分自身のtweetのretweet + 自分が投稿したtweetをretweetできるようになりました。 ### バグ修正 * 同一のtimelineに対してhookが二重に実行されるバグを修正 diff --git a/twittering-mode.el b/twittering-mode.el index 96223e64..f5d8c17a 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -11846,7 +11846,6 @@ How to edit a tweet is determined by `twittering-update-status-funcion'." (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 @@ -11855,17 +11854,15 @@ How to edit a tweet is determined by `twittering-update-status-funcion'." ))) (set-text-properties 0 (length text) nil text) (if id - (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")) + (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 "No status selected")))) ;;;; Commands for browsing information related to a status