From 0694ab3f12ee12d1d093ee1ea237b833ff3ffbe5 Mon Sep 17 00:00:00 2001 From: David Maus Date: Thu, 11 Jun 2020 15:57:22 +0200 Subject: [PATCH] Handle stick summary folders in Wanderlust --- lisp/bbdb-wl.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/bbdb-wl.el b/lisp/bbdb-wl.el index b20b61a..3d16480 100644 --- a/lisp/bbdb-wl.el +++ b/lisp/bbdb-wl.el @@ -33,11 +33,15 @@ (eval-and-compile (autoload 'wl-summary-message-number "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)) -- 2.26.2