From 478a1e8cb0e4f3364bdd98163e66715094373f75 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?tr=C3=A9meur?= Date: Sat, 14 May 2022 23:18:33 +0100 Subject: [PATCH] =?UTF-8?q?and=20the=20body=20tags,=20tbf=20=E2=80=A6?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- custom/dwpost.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/custom/dwpost.el b/custom/dwpost.el index fb67b69..2e4de99 100644 --- a/custom/dwpost.el +++ b/custom/dwpost.el @@ -23,10 +23,11 @@ (find-file-noselect newname) (with-current-buffer newname (goto-char (point-min)) - (setq delpoint (search-forward "\n")) - (delete-region (point-min) delpoint) - (while (re-search-forward "<\\/html>" nil t) - (replace-match "")) + (setq delpoint-one (search-forward "\n")) + (delete-region (point-min) delpoint-one) + (goto-char (point-max)) + (setq delpoint-two (search-backward "")) + (delete-region delpoint-two (point-max)) (write-file newname))) (defun dwdraft ()