r2e: edit deleted historymain

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/net/jao-r2e.el b/lib/net/jao-r2e.el
index 628e83f..76fed8f 100644
--- a/lib/net/jao-r2e.el
+++ b/lib/net/jao-r2e.el
@@ -171,6 +171,16 @@
         (jao-r2e-list)
         (goto-char p)))))
 
+;;;###autoload
+(defun jao-r2e-edit-deleted ()
+  (interactive)
+  (let ((kept nil))
+    (dolist (feed (jao-r2e--deleted))
+      (when (y-or-n-p (format "Keep %s? " feed))
+        (push feed kept)))
+    (setf (multisession-value jao-r2e-deleted-feeds) kept)
+    (message "%s feeds kept" (length kept))))
+
 (defun jao-r2e-recover ()
   (interactive)
   (when (seq-empty-p (jao-r2e--deleted))