]> git.eshelyaron.com Git - emacs.git/commitdiff
(eww-download-callback): Save only the file contents
authorCharles Rendleman <carendle@gmail.com>
Mon, 10 Nov 2014 20:55:55 +0000 (21:55 +0100)
committerLars Magne Ingebrigtsen <larsi@gnus.org>
Mon, 10 Nov 2014 20:55:55 +0000 (21:55 +0100)
* net/eww.el (eww-download-callback): Save only the file contents,
not the headers.

lisp/ChangeLog
lisp/net/eww.el

index 1eb7ca9cb2edcacd2460b9dc2e6f6b9d33cc0d05..7cd867dd7da1d2f553899ed4d05cfe7c6c9d82b7 100644 (file)
@@ -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
index 76fb0c8743f5eee37e9b9af73951895b26799025..f6ab07801c7ac5e9bfc373c370de0ba233834c90 100644 (file)
@@ -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)