aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-08-16 21:33:39 -0400
committerKyle Meyer <kyle@kyleam.com>2020-08-17 20:23:20 -0400
commit1b5a531adbda35ed5de03c8c06d26e6337dca05d (patch)
tree73d54505f1c0386e0af5e68ace169e1c86001211
parentcc115d87717c0d87e0e65a9ff989318b525dcceb (diff)
downloadpiem-1b5a531adbda35ed5de03c8c06d26e6337dca05d.tar.gz
Use url-http-end-of-headers move to payload
-rw-r--r--piem.el4
1 files changed, 3 insertions, 1 deletions
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))