(epa-insert-keys): Renamed from epa-list-keys-1; don't

[elisp/epg.git] / epa.el

diff --git a/epa.el b/epa.el
index 75cb754..b9eb487 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -300,11 +300,21 @@
        (while keys
          (setq point (point))
          (insert "  ")
-         (put-text-property point (point) 'epa-key (car keys))
+         (add-text-properties point (point)
+                              (list 'epa-key (car keys)
+                                    'front-sticky nil
+                                    'rear-nonsticky t
+                                    'start-open t
+                                    'end-open t))
          (widget-create 'epa-key :value (car keys))
          (insert "\n")
          (setq keys (cdr keys))))      
-      (put-text-property (point-min) (point-max) 'epa-list-keys t))))
+      (add-text-properties (point-min) (point-max)
+                          (list 'epa-list-keys t
+                                'front-sticky nil
+                                'rear-nonsticky t
+                                'start-open t
+                                'end-open t)))))
 
 (defun epa-marked-keys ()
   (or (save-excursion