Insert Content-Length at the end of header list.

hassy · Sep 7, 2008 · feef6bc · feef6bc
1 parent ca8dbda
commit feef6bc
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/http-twiddle.el b/http-twiddle.el
@@ -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)