[elpa] externals/ebdb 8e8c2e1 07/15: Make gnus-message window config stuff customizable

[Eric Abrahamsen]

branch: externals/ebdb
commit 8e8c2e1ba0724c2a8c018765ec691183d397eb2a
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Make gnus-message window config stuff customizable
    
    * ebdb-message.el (ebdb-message-reply-window-config,
      ebdb-message-reply-yank-window-config): New customization options,
      replacing the earlier hard-coded window configs.
---
 ebdb-message.el | 33 ++++++++++++++++++++++++---------
 1 file changed, 24 insertions(+), 9 deletions(-)

diff --git a/ebdb-message.el b/ebdb-message.el
index 8bd304e..a29e093 100644
--- a/ebdb-message.el
+++ b/ebdb-message.el
@@ -35,6 +35,26 @@
   :group 'ebdb-mua)
 (put 'ebdb-mua-message 'custom-loads '(ebdb-message))
 
+(defcustom ebdb-message-reply-window-config
+  '(reply
+    (horizontal 1.0
+               (message 1.0 point)
+               (ebdb-message 0.4)))
+  "Message reply window configuration to show EBDB.
+See Gnus' manual for details."
+  :group 'ebdb-mua-message
+  :type 'list)
+
+(defcustom ebdb-message-reply-yank-window-config
+  '(reply-yank
+     (horizontal 1.0
+                (message 1.0 point)
+                (ebdb-message 0.4)))
+  "Message reply-yank window configuration to show EBDB.
+See Gnus' manual for details."
+  :group 'ebdb-mua-message
+  :type 'list)
+
 ;; Suggestions welcome: What are good keybindings for the following
 ;; commands that do not collide with existing bindings?
 ;; (define-key message-mode-map "'" 'ebdb-mua-display-recipients)
@@ -102,20 +122,15 @@
 ;; The gnus window configuration stanza makes sure it's displayed
 ;; after the message buffer is set up.
 (with-eval-after-load 'gnus-win
-  (add-to-list 'gnus-window-to-buffer `(ebdb . ,(ebdb-message-buffer-name)))
+  (add-to-list 'gnus-window-to-buffer
+              `(ebdb-message . ,(ebdb-message-buffer-name)))
   (add-hook 'message-header-setup-hook 'ebdb-mua-auto-update)
 
   (gnus-add-configuration
-   '(reply
-     (horizontal 1.0
-                (message 1.0 point)
-                (ebdb 0.4))))
+   ebdb-message-reply-window-config)
 
   (gnus-add-configuration
-   '(reply-yank
-     (horizontal 1.0
-                (message 1.0 point)
-                (ebdb 0.4)))))
+   ebdb-message-reply-yank-window-config))
 
 (provide 'ebdb-message)
 ;;; ebdb-message.el ends here