email-eww

commit fef1a840a403e956bca7fab8d39302edff8e2835
parent 3ccf709d460060f44197e60f12b86b32e7370b45
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun,  4 Jan 2026 22:54:56 +0100

a few improvements

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

1 file changed, 14 insertions(+), 1 deletion(-)
diff --git a/email-eww.el b/email-eww.el
@@ -130,6 +130,7 @@
   (let ((start (point)))
     (goto-char (point-max))
     (or
+     (search-backward "Zugang zu allen FAZ" nil t)
      (search-backward "Quelle:" nil t)
      (search-backward "Mehr zum Thema" nil t)
      (search-backward "* Submit Submit")
@@ -317,6 +318,14 @@
   (forward-line 1)
   (let ((start (point)))
     (cond
+     ((search-forward "Lights off" nil t)
+      (forward-line)
+      (delete-region (point) start))
+     ((search-forward "--------------" nil t)
+      (forward-line)
+      (delete-region (point) start))
+     ((search-forward "Most recent" nil t)
+      (delete-region (point) start))
      ((search-forward "Est. " nil t)
       (beginning-of-line)
       (backward-paragraph 3)
@@ -327,6 +336,7 @@
     ;; tail
     (goto-char (point-max))
     (or
+     (search-backward "Last updated" nil t)
      (search-backward "Euractiv is part of the Trust Project" nil t)
      (search-backward "Topics" nil t)
      (search-backward "Read more with Euractiv" nil t)
@@ -407,7 +417,10 @@
     (delete-region (point) start)
     ;; tail
     (goto-char (point-max))
-    (search-backward "Recommended Stories" nil t)
+    (or (search-backward "Advertisement" nil t)
+        (search-backward "Source:" nil t)
+        (search-backward "Click here to share on social media" nil t)
+        (search-backward "Recommended Stories" nil t))
     (beginning-of-line)
     (forward-line -1)
     (delete-region (point) (point-max))