[elpa] externals/ebdb 05cf7ec 184/350: New ebdb-message-buffer-name subst

[Eric Abrahamsen]

branch: externals/ebdb
commit 05cf7ecebd7c176422d120340281981fc84df991
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    New ebdb-message-buffer-name subst
    
    * ebdb-message.el (ebdb-message-buffer-name): "Write it twice then
      refactor".  Just about to write it the third time.
---
 ebdb-message.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ebdb-message.el b/ebdb-message.el
index 8343a02..79d1487 100644
--- a/ebdb-message.el
+++ b/ebdb-message.el
@@ -39,13 +39,16 @@
 ;; (define-key message-mode-map ";" 'ebdb-mua-edit-field-recipients)
 ;; (define-key message-mode-map "/" 'ebdb)
 
+(defsubst ebdb-message-buffer-name ()
+  (format "*%s-Message*" ebdb-buffer-name))
+
 (cl-defmethod ebdb-make-buffer-name (&context (major-mode message-mode))
   "Produce a EBDB buffer name associated with Message mode."
-  (format "*%s-Message*" ebdb-buffer-name))
+  (ebdb-message-buffer-name))
 
 (cl-defmethod ebdb-make-buffer-name (&context (major-mode mail-mode))
   "Produce a EBDB buffer name associated with Mail mode."
-  (format "*%s-Message*" ebdb-buffer-name))
+  (ebdb-message-buffer-name))
 
 (cl-defmethod ebdb-message-header ((header string)
                                    &context (major-mode message-mode))