* riece-twitter.el (riece-twitter-message-filter): Send a "source"

parameter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4189da2..2e5b0f3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-05  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-twitter.el (riece-twitter-message-filter): Send a "source"
+       parameter.
+

 2007-05-29  Daiki Ueno  <ueno@unixuser.org>
 
        * Riece: Version 4.0.0 released.
 2007-05-29  Daiki Ueno  <ueno@unixuser.org>
 
        * Riece: Version 4.0.0 released.

diff --git a/lisp/riece-twitter.el b/lisp/riece-twitter.el
index 3555f5c..214d03f 100644 (file)
--- a/lisp/riece-twitter.el
+++ b/lisp/riece-twitter.el
@@ -59,6 +59,7 @@
         "-H" (concat "X-Twitter-Client-Version: " riece-version-number)
         "-H" "X-Twitter-Client-URL: http://riece.nongnu.org/twitter.xml"
         "-u" credential
         "-H" (concat "X-Twitter-Client-Version: " riece-version-number)
         "-H" "X-Twitter-Client-URL: http://riece.nongnu.org/twitter.xml"
         "-u" credential

+        "-d" "source=riece"

         "-d" (concat "status="
                      (riece-twitter-escape-string
                       (encode-coding-string (riece-message-text message)
         "-d" (concat "status="
                      (riece-twitter-escape-string
                       (encode-coding-string (riece-message-text message)