branch: externals/ebdb
commit 05cf7ecebd7c176422d120340281981fc84df991
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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))
