[Emacs-diffs] trunk r118356: (eww-download-callback): Save only the file contents

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 118356
revision-id: address@hidden
parent: address@hidden
author: Charles Rendleman <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2014-11-10 21:55:55 +0100
message:
  (eww-download-callback): Save only the file contents
  
  * net/eww.el (eww-download-callback): Save only the file contents,
  not the headers.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-11-10 20:44:33 +0000
+++ b/lisp/ChangeLog    2014-11-10 20:55:55 +0000
@@ -1,3 +1,8 @@
+2014-11-10  Charles Rendleman  <address@hidden>  (tiny change)
+
+       * net/eww.el (eww-download-callback): Save only the file contents,
+       not the headers.
+
 2014-11-10  Lars Magne Ingebrigtsen  <address@hidden>
 
        * net/eww.el (eww-data): New plist to store all the data relevant

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2014-11-10 20:44:33 +0000
+++ b/lisp/net/eww.el   2014-11-10 20:55:55 +0000
@@ -1142,7 +1142,9 @@
            (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)