[elpa] externals/bbdb f7a8256 2/2: Fix support for Wanderlust

[Roland Winkler]

branch: externals/bbdb
commit f7a8256ed7bb2033e830da3bde238f0987314e69
Author: Roland Winkler <address@hidden>
Commit: Roland Winkler <address@hidden>

    Fix support for Wanderlust
---
 bbdb-mua.el |  2 +-
 bbdb-wl.el  | 13 ++++++++-----
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/bbdb-mua.el b/bbdb-mua.el
index 46b993b..83f8300 100644
--- a/bbdb-mua.el
+++ b/bbdb-mua.el
@@ -68,7 +68,7 @@
     (rmail rmail-mode rmail-summary-mode)
     (mh mhe-mode mhe-summary-mode mh-folder-mode)
     (mu4e mu4e-view-mode)  ; Tackle `mu4e-headers-mode' later
-    (wl wl-summary-mode wl-draft-mode)
+    (wl wl-summary-mode wl-draft-mode mime-view-mode)
     (message message-mode mu4e-compose-mode notmuch-message-mode)
     (mail mail-mode))
   "Alist of MUA modes supported by BBDB.
diff --git a/bbdb-wl.el b/bbdb-wl.el
index 0f523d4..b20b61a 100644
--- a/bbdb-wl.el
+++ b/bbdb-wl.el
@@ -1,6 +1,6 @@
 ;;; bbdb-wl.el --- BBDB interface to Wanderlust -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2017  Free Software Foundation, Inc.
+;; Copyright (C) 2015-2018  Free Software Foundation, Inc.
 
 ;; This file is part of the Insidious Big Brother Database (aka BBDB),
 
@@ -28,6 +28,7 @@
 
 (defvar wl-summary-mode-map)
 (defvar wl-draft-mode-map)
+(defvar wl-summary-buffer-name)
 (defvar wl-summary-buffer-elmo-folder)
 (eval-and-compile
   (autoload 'wl-summary-message-number "wl-summary")
@@ -36,10 +37,12 @@
 
 ;;;###autoload
 (defun bbdb/wl-header (header)
-  (elmo-message-entity-field
-   (elmo-message-entity wl-summary-buffer-elmo-folder
-                        (wl-summary-message-number))
-   (intern (downcase header)) 'string))
+  (with-current-buffer wl-summary-buffer-name
+    (elmo-message-entity-field
+     (elmo-message-entity wl-summary-buffer-elmo-folder
+                          (wl-summary-message-number))
+     (intern (downcase header))
+     'string)))
 
 ;;;###autoload
 (defun bbdb-insinuate-wl ()