Get rid of html head

custom/dwpost.el

@@ -22,12 +22,11 @@
   (setq newname (concat (file-name-base) ".html"))
   (find-file-noselect newname)
   (with-current-buffer newname
-    (goto-line 1)
+    (goto-char (point-min))
-    (delete-region (line-beginning-position) (line-end-position))
+    (setq delpoint (search-forward "</head>\n"))
-    (goto-line 2)
+    (delete-region (point-min) delpoint)
-    (delete-region (line-beginning-position) (line-end-position))
+    (while (re-search-forward "<\\/html>" nil t)
-    (goto-line 3)
+      (replace-match ""))
-    (delete-region (line-beginning-position) (line-end-position))
     (write-file newname)))
 
 (defun dwdraft ()