[elpa] externals/ebdb cc37746 2/2: Add ebdb-mua-message-header for wl-summary-mode, bump 0.6.22

[Eric Abrahamsen]

branch: externals/ebdb
commit cc37746f0f5698bbf42201dd725a180cb32245fb
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Add ebdb-mua-message-header for wl-summary-mode, bump 0.6.22
    
    Github Bug#95
    
    * ebdb-wl.el (ebdb-mua-message-header): This is the mode we actually
    need. Also, provide the ebdb-mua-keymap within the
    mime-view-mode-default-map.
---
 ebdb-wl.el | 11 +++++++++++
 ebdb.el    |  2 +-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/ebdb-wl.el b/ebdb-wl.el
index 8b102e1..d4a5cb3 100644
--- a/ebdb-wl.el
+++ b/ebdb-wl.el
@@ -67,6 +67,16 @@ the value of `ebdb-default-window-size'."
                          (wl-summary-message-number)))
    (intern (downcase header)) 'string))
 
+(cl-defmethod ebdb-mua-message-header ((header string)
+                                      &context (major-mode wl-summary-mode))
+  "Extract a message header in Wanderlust."
+  (elmo-message-entity-field
+   ;; It's possibly not safe to assume `wl-current-summary-buffer' is live?
+   (with-current-buffer wl-current-summary-buffer
+     (elmo-message-entity wl-summary-buffer-elmo-folder
+                         (wl-summary-message-number)))
+   (intern (downcase header)) 'string))
+
 (cl-defmethod ebdb-mua-prepare-article (&context (major-mode wl-summary-mode))
   (wl-summary-set-message-buffer-or-redisplay))
 
@@ -126,6 +136,7 @@ beginning) of the signature separator."
 (defun ebdb-insinuate-wl ()
   "Hook EBDB into Wanderlust."
   (define-key wl-summary-mode-map ";" ebdb-mua-keymap)
+  (define-key mime-view-mode-default-map ";" ebdb-mua-keymap)
   (when ebdb-complete-mail
     (define-key wl-draft-mode-map (kbd "TAB") #'ebdb-complete-mail))
   (add-hook 'wl-summary-exit-hook #'ebdb-wl-quit-window))
diff --git a/ebdb.el b/ebdb.el
index b1e71c4..651869d 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2016-2020  Free Software Foundation, Inc.
 
-;; Version: 0.6.21
+;; Version: 0.6.22
 ;; Package-Requires: ((emacs "25.1") (cl-lib "0.5") (seq "2.15"))
 
 ;; Maintainer: Eric Abrahamsen <eric@ericabrahamsen.net>