@@ -119,12 +119,16 @@ length." (insert "\r")))) (defun http-twiddle-expand-content-length () - "Replace any occurences of $Content-Length with the actual Content-Length." + "Replace any occurences of $Content-Length with the actual Content-Length. Insert one if needed." (save-excursion (goto-char (point-min)) (let ((content-length (save-excursion (when (search-forward "\r\n\r\n" nil t) (- (point-max) (point)))))) + (save-excursion + (goto-char (- (point-max) content-length 2)) + (insert "Content-Length: $Content-Length\r\n")) + (unless (null content-length) (let ((case-fold-search t)) (while (search-forward "$content-length" nil t) http-twiddle.el ca8dbda24ce5791085f5011b1c8e62873dbdb937 Hasan Veldstra hasan.veldstra@gmail.com http://github.com/hassy/http-twiddle/commit/feef6bcd95ae9d52bf5260469a449c77d851ffed feef6bcd95ae9d52bf5260469a449c77d851ffed 2008-09-07T16:41:55-07:00 2008-09-07T16:41:55-07:00 Insert Content-Length at the end of header list. fa1bcfa96534ca123f205d8e6f1f48b88b477346 Hasan Veldstra hasan.veldstra@gmail.com