email-eww

commit e551c0e1e4526a64bbe2fcf23aea24470570e414
parent d8adfe068554c68fd2626548b6e218c17f8f8a32
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 31 Dec 2023 21:12:23 +0100

add guardian

Diffstat:
M
email-eww.el
 | 
19
+++++++++++++++++++

1 file changed, 19 insertions(+), 0 deletions(-)
diff --git a/email-eww.el b/email-eww.el
@@ -166,6 +166,25 @@
     (delete-region (point) (point-max)))
   (message-goto-body))
 
+(defun clean-up-guardian ()
+  (forward-line 2)
+  (let ((start (point)))
+    (goto-char (point-max))
+    (search-backward-regexp "^Topics")
+    (delete-region (point) (point-max))
+    (goto-char start)
+    (or (search-forward "Last modified" nil t)
+        (search-forward "First published" nil t)
+        (search-forward-regexp "^Published")
+        )
+    (or (search-backward "Submit" nil t)
+        (search-backward-regexp "^* ")
+        )
+    (beginning-of-line)
+    (forward-line 1)
+    (delete-region start (point)))
+  (message-goto-body))
+
 (defun email-eww ()
   (interactive)
   (let ((content (buffer-string))