email-eww

commit ca69dcb36933c47f8d5d8bf3fb674a79be922669
parent 2c4fe79d8ccbac336885daa1bb3af67cd35c075b
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 18 Jun 2023 01:04:22 +0200

update clean-up-reddit

Diffstat:
M
email-eww.el
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/email-eww.el b/email-eww.el
@@ -66,16 +66,16 @@
   (flush-lines "^reply$" (point) (point-max)))
 
 (defun clean-up-reddit ()
-  (next-line 2)
+  (forward-line 2)
   (let ((start (point)))
     (cond
      ((search-forward "Posted by" nil t)
       (beginning-of-line)
-      (next-line)
+      (forward-line)
       (delete-region start (point)))
      ((search-forward-regexp "^submitted" nil t)
       (beginning-of-line)
-      (previous-line)
+      (forward-line -1)
       (backward-paragraph)
       (delete-region start (point)))
      ))