[elpa] externals/bbdb 5bcf198: bbdb-wl.el: Use wl sticky buffer name if necessary

[Roland Winkler]

branch: externals/bbdb
commit 5bcf1981425d0db8f739b80dd125c2fc2844ecbc
Author: David Maus <dmause@dmaus.name>
Commit: Roland Winkler <winkler@gnu.org>

    bbdb-wl.el: Use wl sticky buffer name if necessary
---
 bbdb-wl.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/bbdb-wl.el b/bbdb-wl.el
index b20b61a..047feac 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-2018  Free Software Foundation, Inc.
+;; Copyright (C) 2015-2020  Free Software Foundation, Inc.
 
 ;; This file is part of the Insidious Big Brother Database (aka BBDB),
 
@@ -32,12 +32,19 @@
 (defvar wl-summary-buffer-elmo-folder)
 (eval-and-compile
   (autoload 'wl-summary-message-number "wl-summary")
+  (autoload 'wl-summary-sticky-p "wl-summary")
+  (autoload 'wl-summary-sticky-buffer-name "wl-summary")
   (autoload 'elmo-message-entity "elmo-msgdb")
-  (autoload 'elmo-message-entity-field "elmo-msgdb"))
+  (autoload 'elmo-message-entity-field "elmo-msgdb")
+  (autoload 'elmo-folder-name-internal "elmo"))
 
 ;;;###autoload
 (defun bbdb/wl-header (header)
-  (with-current-buffer wl-summary-buffer-name
+  (with-current-buffer
+      (if (wl-summary-sticky-p)
+          (wl-summary-sticky-buffer-name
+           (elmo-folder-name-internal wl-summary-buffer-elmo-folder))
+        wl-summary-buffer-name)
     (elmo-message-entity-field
      (elmo-message-entity wl-summary-buffer-elmo-folder
                           (wl-summary-message-number))