email-eww

commit 11de3eb6690c6d339b65bcde619121fd9b63b7e3
parent 5790e94d9a2bc0bd7891ab1f7177dd7865087ec7
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 31 Dec 2023 21:13:53 +0100

add commondreams

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

1 file changed, 14 insertions(+), 0 deletions(-)
diff --git a/email-eww.el b/email-eww.el
@@ -260,6 +260,20 @@
   (delete-region (point) (point-max))
   (message-goto-body))
 
+(defun clean-up-commondreams ()
+  (forward-line 1)
+  (let ((start (point)))
+    (or (search-forward "(Photo" nil t)
+        (search-forward "A project of Common Dreams" nil t))
+    (beginning-of-line)
+    (forward-paragraph 2)
+    (delete-region (point) start))
+  (goto-char (point-max))
+  (search-backward "From Your Site Articles" nil t)
+  (beginning-of-line)
+  (delete-region (point) (point-max))
+  (message-goto-body))
+
 (defun email-eww ()
   (interactive)
   (let ((content (buffer-string))