Re: Problem with bbdb and wanderlust

The attach patch should fix this issue. It uses the sticky buffer name
if the summary is sticky and the regular buffer name if it is not.

Best,
  -- David

On Tue, 09 Jun 2020 22:08:51 +0200,
Fred Gilham wrote:
> 
> 
> Some time ago I started seeing errors of the type
> 
> bbdb-bbdb-message-header: No buffer named Summary
> 
> As a result some bbdb functionality disappeared, though some continued
> to work. But what most concerned me was that I was unable to forward
> emails. Eventually I tracked it down as follows.
> 
> The function bbdb-message-header dispatches on the mua, and for
> wanderlust it points to bbdb/wl-header.
> 
> That function uses the wl-summary-buffer-name variable to find the
> name of the summary buffer, but that variable is set to "Summary".
> There is no buffer named "Summary"; instead all the buffers use what
> is called the "sticky buffer name" such as
> "Summary:%INBOX:randomuser/[email protected]:993!"
> 
> 
> 
> 
> 
> Changing 
> 
>       wl-summary-buffer-name 
> 
> to
> 
>       (wl-summary-sticky-buffer-name
>        (elmo-folder-name-internal wl-summary-buffer-elmo-folder))
> 
> makes everything work as expected.
> 
> Here's a diff:
> 
> --- bbdb-wl.el-old      2020-02-18 09:50:43.252186491 -0800
> +++ bbdb-wl.el  2020-06-09 06:16:49.859572928 -0700
> @@ -36,8 +36,11 @@
>    (autoload 'elmo-message-entity-field "elmo-msgdb"))
>  
>  ;;;###autoload
> +
>  (defun bbdb/wl-header (header)
> -  (with-current-buffer wl-summary-buffer-name
> +  (with-current-buffer
> +      (wl-summary-sticky-buffer-name
> +       (elmo-folder-name-internal wl-summary-buffer-elmo-folder))
>      (elmo-message-entity-field
>       (elmo-message-entity wl-summary-buffer-elmo-folder
>                            (wl-summary-message-number))
> 
> 
> 
> -- 
>    just make me lighter
>    make me lighter still
>      'til the yellow of the sun takes me
> 
>    [oh what Lazarus saw! I cannnot bear this anymore!]
>                                                       -- Linshuang Lu
> 

-- 
David Maus M.A.

Www: http://dmaus.name
Twitter: @_dmaus

From 0694ab3f12ee12d1d093ee1ea237b833ff3ffbe5 Mon Sep 17 00:00:00 2001
From: David Maus <[email protected]>
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