branch: externals/bbdb
commit f7a8256ed7bb2033e830da3bde238f0987314e69
Author: Roland Winkler <wink...@gnu.org>
Commit: Roland Winkler <wink...@gnu.org>
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 ()
