From 1b5a531adbda35ed5de03c8c06d26e6337dca05d Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 16 Aug 2020 21:33:39 -0400 Subject: Use url-http-end-of-headers move to payload Message-Id: <20200817013343.15615-2-kyle@kyleam.com> --- piem.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/piem.el b/piem.el index e958ada..1640f46 100644 --- a/piem.el +++ b/piem.el @@ -33,6 +33,8 @@ (require 'subr-x) (require 'url) +(defvar url-http-end-of-headers) + ;;;; Options @@ -405,7 +407,7 @@ buffer." (let ((error-status (plist-get status :error))) (if error-status (signal (car error-status) (cdr error-status)) - (search-forward "\n\n") + (goto-char (1+ url-http-end-of-headers)) (delete-region (point-min) (point)) (unless message-only (unless (= 0 (call-process-region nil nil "gunzip" nil t)) -- cgit v1.2.3