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

add stackoverflow

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

diff --git a/email-eww.el b/email-eww.el @@ -192,6 +192,21 @@ (delete-region (point) (point-max)) (message-goto-body)) +(defun clean-up-stackoverflow () + (forward-line 2) + (let ((start (point))) + (search-forward "Ask Question" nil t) + (beginning-of-line) + (search-backward "Learn more" nil t) + (beginning-of-line) + (forward-line 3) + (delete-region (point) start)) + (goto-char (point-max)) + (search-backward "Add a comment" nil t) + (beginning-of-line) + (delete-region (point) (point-max)) + (message-goto-body)) + (defun email-eww () (interactive) (let ((content (buffer-string))