commit 64485852e881e38ee5d30217a66c0d9d180b5eb8 parent fa340cea6e32f5b44ab0e869a2fb3fef9421a4dc Author: Tomas Hlavaty <tom@logand.com> Date: Sun, 31 Dec 2023 21:11:50 +0100 add faz Diffstat:
| M | email-eww.el | | | 15 | +++++++++++++++ |
1 file changed, 15 insertions(+), 0 deletions(-)
diff --git a/email-eww.el b/email-eww.el @@ -123,6 +123,21 @@ (unless (= (point) (point-max)) (forward-char 1)))) +(defun clean-up-faz () ;; TODO Artikel auf einer Seite lesen + (forward-line 2) + (let ((start (point))) + (goto-char (point-max)) + (or (search-backward "Mehr zum Thema" nil t) + (search-backward "* Submit Submit")) + (forward-line -1) + (delete-region (point) (point-max)) + (goto-char (point-max)) + (search-backward "Abo") + (beginning-of-line) + (forward-line 2) + (delete-region start (point))) + (message-goto-body)) + (defun email-eww () (interactive) (let ((content (buffer-string))