email-eww

Emacs library to send region or eww buffer by email
git clone https://logand.com/git/email-eww.git/
Log | Files | Refs
commit 6835b2e72acf493e315aa858432ffe4c7536e17b
parent e551c0e1e4526a64bbe2fcf23aea24470570e414
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 31 Dec 2023 21:12:37 +0100

add wikipedia

Diffstat:

Memail-eww.el | 7+++++++


1 file changed, 7 insertions(+), 0 deletions(-)

diff --git a/email-eww.el b/email-eww.el
@@ -185,6 +185,13 @@
     (delete-region start (point)))
   (message-goto-body))
 
+(defun clean-up-wikipedia ()
+  (or (search-forward "Retrieved from" nil t)
+      (search-forward "Abgerufen von" nil t))
+  (beginning-of-line)
+  (delete-region (point) (point-max))
+  (message-goto-body))
+
 (defun email-eww ()
   (interactive)
   (let ((content (buffer-string))