Allow port, protocol to be specified (e.g. Pantalaimon support) about ement.el HOT 7 CLOSED

@@ -67,14 +67,14 @@
                (path (format "/_matrix/%s/r0/%s" endpoint-category endpoint))
 	       (query (url-build-query-string params))
 	       (filename (concat path "?" query))
-               (url (url-recreate-url
-		     (url-parse-make-urlobj type nil nil host port filename nil data t)))
+               (url (concat "localhost:8080" filename))
                (headers (ement-alist "Content-Type" content-type
                                      "Authorization" (concat "Bearer " token))))
     ;; Omit `then' from debugging because if it's a partially applied
     ;; function on the session object, which may be very large, it
     ;; will take a very long time to print into the warnings buffer.
     ;;  (ement-debug (current-time) method url headers)
+    (message "%s : %s : %s : %s" host port data uri-prefix)
     (plz method url :headers headers :body data :body-type data-type
       :as json-read-fn :then then :else else
       ;; FIXME: Timeout is not necessarily the same as connect-timeout, or shouldn't be.
modified   ement.el
@@ -271,7 +271,7 @@ If no URI is found, prompt the user for the hostname."
                        ;; Parsing error: FAIL_PROMPT.
                        (fail-prompt))))
     (let ((response (condition-case err
-                        (plz-get-sync (concat "https://" hostname "/.well-known/matrix/client")
+                        (plz-get-sync (concat "http://" hostname "/.well-known/matrix/client")
                           :as 'response)
                       (plz-http-error (plz-error-response (cdr err))))))
       (pcase (plz-response-status response)