Don't double up keys in epa--list-keys

* lisp/epa.el (epa--list-keys): Delete the list keys before
redisplaying (bug#44134).

diff --git a/lisp/epa.el b/lisp/epa.el
index e909b1d8698075ec1f0f5c6432483cb6667483a9..197cd92f9773118dd2baefbcfe795cdda2fd4fef 100644 (file)
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -374,7 +374,7 @@ DOC is documentation text to insert at the start."
     ;; Now delete the key description text, if any.
     (when point
       (delete-region point
-                    (or (next-single-property-change point 'epa-key)
+                    (or (next-single-property-change point 'epa-list-keys)
                         (point-max)))
       (goto-char point))