(eww-download-callback): Save only the file contents

* net/eww.el (eww-download-callback): Save only the file contents,
not the headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1eb7ca9cb2edcacd2460b9dc2e6f6b9d33cc0d05..7cd867dd7da1d2f553899ed4d05cfe7c6c9d82b7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-10  Charles Rendleman  <carendle@gmail.com>  (tiny change)
+
+       * net/eww.el (eww-download-callback): Save only the file contents,
+       not the headers.
+
 2014-11-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * net/eww.el (eww-data): New plist to store all the data relevant

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 76fb0c8743f5eee37e9b9af73951895b26799025..f6ab07801c7ac5e9bfc373c370de0ba233834c90 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1142,7 +1142,9 @@ Differences in #targets are ignored."
            (path (car (url-path-and-query obj)))
            (file (eww-make-unique-file-name (file-name-nondirectory path)
                                            eww-download-directory)))
-      (write-file file)
+      (goto-char (point-min))
+      (re-search-forward "\r?\n\r?\n")
+      (write-region (point) (point-max) file)
       (message "Saved %s" file))))
 
 (defun eww-make-unique-file-name (file directory)