diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-16 10:32:43 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-16 10:32:43 +0200 |
| commit | 14a5358806407a881748b9bbe9bdd113743a2acf (patch) | |
| tree | 1b800be15b22d192252ee1bb421cfa7a62819485 | |
| parent | dfe1fb7aabe43bb8dbad198f31752c92d191e7d0 (diff) | |
Revert "use url-http-end-of-headers in http.el" To fix tests
This reverts commit 6d05cf81ff5a84aa12735aeab2ac99a083c15033.
| -rw-r--r-- | lisp/mastodon-http.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index a2094be..5dd4fda 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -193,7 +193,7 @@ Callback to `mastodon-http--get-response-async', usually (let ((headers (unless no-headers (mastodon-http--process-headers)))) (goto-char (point-min)) - (goto-char url-http-end-of-headers) + (re-search-forward "^$" nil 'move) (let ((json-array-type (if vector 'vector 'list)) (json-string (decode-coding-string (buffer-substring-no-properties (point) (point-max)) @@ -216,7 +216,7 @@ Callback to `mastodon-http--get-response-async', usually (goto-char (point-min)) (let* ((head-str (buffer-substring-no-properties (point-min) - (goto-char url-http-end-of-headers))) + (re-search-forward "^$" nil 'move))) (head-list (split-string head-str "\n"))) (mapcar (lambda (x) (let ((list (split-string x ": "))) |