branch: externals/bbdb
commit 5bcf1981425d0db8f739b80dd125c2fc2844ecbc
Author: David Maus <dma...@dmaus.name>
Commit: Roland Winkler <wink...@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))
