[elpa] externals/ebdb 4ab131b: Use register-read-with-preview in ebdb-mail-each

[Eric Abrahamsen]

branch: externals/ebdb
commit 4ab131b505cdb2bba817be3590ac82b920fcf381
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Use register-read-with-preview in ebdb-mail-each
    
    * ebdb-com.el (ebdb-cite-records-ebdb): No reason to make something
      up, this function does just what we want.
---
 ebdb-com.el | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/ebdb-com.el b/ebdb-com.el
index 76bd59c..4468564 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -2369,14 +2369,9 @@ holding text to be inserted as the body of each message."
          (ebdb-dwim-mail
           (ebdb-prompt-for-record
            nil nil "Add record to Bcc (C-g to skip): ")))
-        (let ((usable-registers
-               (seq-filter (lambda (pair) (stringp (cdr pair)))
-                           register-alist)))
-          (when usable-registers
-            (ebdb-with-exit
-             (read-char-choice
-              "Register to use for body text (C-g to skip): "
-              (mapcar #'car usable-registers)))))))
+        (ebdb-with-exit
+         (register-read-with-preview
+          "Register to use for body text (C-g to skip): "))))
   (let ((cc (when cc (mapconcat #'identity cc ", ")))
        (bcc (when bcc (mapconcat #'identity bcc ", ")))
        (body (let ((reg (get-register body-register)))