commit 656473ec1fec5e7038ea8dac229a92ac81ad1fd9 parent f00385846e6b42b433a3fe40f7472d2d7437b598 Author: Tomas Hlavaty <tom@logand.com> Date: Sun, 31 Dec 2023 21:13:30 +0100 add wallstreetonparade Diffstat:
| M | email-eww.el | | | 14 | ++++++++++++++ |
1 file changed, 14 insertions(+), 0 deletions(-)
diff --git a/email-eww.el b/email-eww.el @@ -233,6 +233,20 @@ (delete-region (point) (point-max)) (message-goto-body)) +(defun clean-up-wallstreetonparade () + (forward-line 1) + (let ((start (point))) + (search-forward "Search for:" nil t) + (beginning-of-line) + (forward-line 1) + (forward-paragraph 1) + (delete-region (point) start)) + (goto-char (point-max)) + (search-backward "Bookmark the permalink." nil t) + (beginning-of-line) + (delete-region (point) (point-max)) + (message-goto-body)) + (defun email-eww () (interactive) (let ((content (buffer-string))