email-eww

commit c930970c4969f9d981c0b7276fcbd93804afbd4f
parent 64485852e881e38ee5d30217a66c0d9d180b5eb8
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 31 Dec 2023 21:12:01 +0100

add mmnews

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

1 file changed, 16 insertions(+), 0 deletions(-)
diff --git a/email-eww.el b/email-eww.el
@@ -138,6 +138,22 @@
     (delete-region start (point)))
   (message-goto-body))
 
+(defun clean-up-mmnews ()
+  (forward-line 2)
+  (let ((start (point)))
+    (forward-line)
+    (search-forward-regexp "^[*]$" nil t)
+    (forward-line 4)
+    (delete-region start (point))
+    ;;
+    (goto-char (point-max))
+    (or (search-backward "Wissen macht reich:" nil t)
+        (search-backward "Neue Videos:" nil t))
+    (beginning-of-line)
+    (forward-line -1)
+    (delete-region (point) (point-max)))
+  (message-goto-body))
+
 (defun email-eww ()
   (interactive)
   (let ((content (buffer-string))