Index: lang/elisp/twittering-mode/trunk/twittering-mode.el
===================================================================
--- lang/elisp/twittering-mode/trunk/twittering-mode.el (revision 137)
+++ lang/elisp/twittering-mode/trunk/twittering-mode.el (revision 138)
@@ -6,16 +6,9 @@
 ;; Author: Y. Hayamizu <y.hayamizu@gmail.com>
 ;;         Tsuyoshi CHO <Tsuyoshi.CHO+develop@Gmail.com>
+;;         Alberto Garcia  <agarcia@igalia.com>
 ;; Created: Sep 4, 2007
 ;; Version: 0.4
 ;; Keywords: twitter web
 ;; URL: http://lambdarepos.svnrepository.com/share/trac.cgi/browser/lang/elisp/twittering-mode
-
-;; Modified by Alberto Garcia <agarcia@igalia.com> to add the following methods:
-;; twittering-replies-timeline
-;; twittering-public-timeline
-;; twittering-user-timeline
-;; twittering-current-timeline(-(non)interractive)
-;; twittering-other-user-timeline
-;; twittering-other-user-timeline-interactive
 
 ;; This file is free software; you can redistribute it and/or modify
@@ -54,5 +47,5 @@
 (require 'parse-time)
 
-(defconst twittering-mode-version "0.7")
+(defconst twittering-mode-version "0.8")
 
 (defun twittering-mode-version ()
@@ -170,9 +163,22 @@
 	  twittering-mode-version))
 
+(defvar twittering-sign-simple-string nil)
+
+(defun twittering-sign-string-default-function ()
+  "Tweet append sign string:simple "
+  (if twittering-sign-simple-string
+      (concat " [" twittering-sign-simple-string "]")
+    ""))
+
 (defvar twittering-user-agent-function 'twittering-user-agent-default-function)
+(defvar twittering-sign-string-function 'twittering-sign-string-default-function)
 
 (defun twittering-user-agent ()
   "Return User-Agent header string."
   (funcall twittering-user-agent-function))
+
+(defun twittering-sign-string ()
+  "Return Tweet sign string."
+  (funcall twittering-sign-string-function))
 
 ;;; to show image files
@@ -943,9 +949,10 @@
   (if (string-match "^\\s-*\\(?:@[-_a-z0-9]+\\)?\\s-*$" status)
       nil
-    (let ((parameters (append `(("status" . ,status)
-				("source" . "twmode"))
-			      (if reply-to-id
-				  `(("in_reply_to_status_id"
-				     . ,reply-to-id))))))
+    (setq status (concat status (twittering-sign-string)))
+    (let ((parameters `(("status" . ,status)
+			("source" . "twmode")
+			,@(if reply-to-id
+			      `(("in_reply_to_status_id"
+				 . ,reply-to-id))))))
       (twittering-http-post "statuses" "update" parameters))
     t))
Index: lang/elisp/twittering-mode/trunk/ChangeLog
===================================================================
--- lang/elisp/twittering-mode/trunk/ChangeLog (revision 137)
+++ lang/elisp/twittering-mode/trunk/ChangeLog (revision 138)
@@ -1,2 +1,10 @@
+2009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
+
+	* twittering-mode.el (twittering-sign-simple-string)
+	(twittering-sign-string-default-function)
+	(twittering-sign-string-function, twittering-sign-string): Add
+	new.
+	(twittering-update-status-if-not-blank): Fix params, support sign.
+
 2009-06-18  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>