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

[elisp/riece.git] / lisp / riece-twitter.el

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
+        "-d" "source=riece"
         "-d" (concat "status="
                      (riece-twitter-escape-string
                       (encode-coding-string (riece-message-text message)