From 6d05cf81ff5a84aa12735aeab2ac99a083c15033 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Thu, 11 May 2023 19:58:01 +0200 Subject: use url-http-end-of-headers in http.el --- lisp/mastodon-http.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index ba79bd0..6f472bc 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -192,7 +192,7 @@ Callback to `mastodon-http--get-response-async', usually (let ((headers (unless no-headers (mastodon-http--process-headers)))) (goto-char (point-min)) - (re-search-forward "^$" nil 'move) + (goto-char url-http-end-of-headers) (let ((json-array-type (if vector 'vector 'list)) (json-string (decode-coding-string (buffer-substring-no-properties (point) (point-max)) @@ -215,7 +215,7 @@ Callback to `mastodon-http--get-response-async', usually (goto-char (point-min)) (let* ((head-str (buffer-substring-no-properties (point-min) - (re-search-forward "^$" nil 'move))) + (goto-char url-http-end-of-headers))) (head-list (split-string head-str "\n"))) (mapcar (lambda (x) (let ((list (split-string x ": "))) -- cgit v1.2.3