[elpa] externals/ebdb 744c829 182/350: Clear *EBDB-Message* buffers when composing new message

[Eric Abrahamsen]

branch: externals/ebdb
commit 744c8297e764d1e5d9b257af2889c248a42d8c99
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Clear *EBDB-Message* buffers when composing new message
    
    * ebdb-message.el (ebdb-insinuate-message): EBDB buffers associated
      with message-mode and mail-mode don't get cleared by default, do it
      manually.
---
 ebdb-message.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/ebdb-message.el b/ebdb-message.el
index dffca06..8343a02 100644
--- a/ebdb-message.el
+++ b/ebdb-message.el
@@ -65,12 +65,21 @@
 (cl-defmethod ebdb-popup-window (&context (major-mode mail-mode))
   (list (get-buffer-window) 0.4))
 
+;;   There's a bit more work to do here: *EBDB-Message* buffer should
+;; be displayed immediately when replying to messages, for instance.
+
 (defun ebdb-insinuate-message ()
   (when ebdb-complete-mail
     (cl-pushnew 
'("^\\(Resent-\\)?\\(To\\|B?Cc\\|Reply-To\\|From\\|Mail-Followup-To\\|Mail-Copies-To\\):"
 . ebdb-complete-mail)
                message-completion-alist
                :test #'equal)
-    (define-key mail-mode-map (kbd "TAB") 'ebdb-complete-mail)))
+    (define-key message-mode-map (kbd "TAB") 'ebdb-complete-mail))
+  ;; Other MUAs clear the EBDB buffer before displaying (in
+  ;; `ebdb-mua-auto-update', the call to `ebdb-display-records' does
+  ;; not pass the "append" flag).  Displaying in message-mode does
+  ;; pass the "append" flag (in `ebdb-complete-mail-cleanup'), so we
+  ;; do the undisplay manually.
+  (ebdb-undisplay-records))
 
 (defun ebdb-insinuate-mail ()
   "Hook EBDB into Mail Mode."
@@ -80,7 +89,8 @@
   ;; (define-key mail-mode-map ";" 'ebdb-mua-edit-field-recipients)
   ;; (define-key mail-mode-map "/" 'ebdb)
   (if ebdb-complete-mail
-      (define-key mail-mode-map "\M-\t" 'ebdb-complete-mail)))
+      (define-key mail-mode-map "\M-\t" 'ebdb-complete-mail))
+  (ebdb-undisplay-records))
 
 (add-hook 'message-mode-hook 'ebdb-insinuate-message)
 (add-hook 'mail-setup-hook 'ebdb-insinuate-mail)