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 d8adfe068554c68fd2626548b6e218c17f8f8a32
parent c930970c4969f9d981c0b7276fcbd93804afbd4f
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 31 Dec 2023 21:12:11 +0100

add voanews

Diffstat:
Memail-eww.el | 12++++++++++++
1 file changed, 12 insertions(+), 0 deletions(-)

diff --git a/email-eww.el b/email-eww.el @@ -154,6 +154,18 @@ (delete-region (point) (point-max))) (message-goto-body)) +(defun clean-up-voanews () + (forward-line 2) + (let ((start (point))) + (search-forward "Print this page") + (beginning-of-line) + (forward-line 3) + (delete-region start (point)) + (search-forward "Related Stories") + (forward-line -3) + (delete-region (point) (point-max))) + (message-goto-body)) + (defun email-eww () (interactive) (let ((content (buffer-string))