os-github.el: clean filter and add debug message.

diff --git a/os-github.el b/os-github.el
index 3116ed4..8fec5e1 100644 (file)
--- a/os-github.el
+++ b/os-github.el
@@ -185,6 +185,7 @@ Append new tags in EXISTING-TAGS by side effects."
   "Send HTTP request at URL using METHOD with DATA.
 AUTH is a cons (\"user\" . \"pwd\").  Return the server decoded
 JSON response."
+  (message "%s %s %s" method url (prin1-to-string data))
   (let* ((url-request-method method)
          (url-request-data data)
          (auth os-github-auth)
@@ -212,10 +213,9 @@ JSON response."
 ;; XXX: we need an actual markdown parser here...
 (defun os-github-filter-desc (desc)
   "Return a filtered description of a GitHub description."
-  (setq desc (replace-regexp-in-string "^\\*" "-" desc))
-  (replace-regexp-in-string "\\([^ \t\n]\\)[ \t\n]*\\'"
-                            "\\1\n"
-                            (replace-regexp-in-string "\r\n" "\n" desc)))
+  (setq desc (replace-regexp-in-string "\r\n" "\n" desc))
+  (setq desc (replace-regexp-in-string "\\([^ \t\n]\\)[ \t\n]*\\'"
+                                       "\\1\n" desc)))          
 
 (defun os-github-json-to-bug (data)
   "Return DATA (in json) converted to a bug."