Re: bbdb3

Yes, this seems to work!

Also, a continuously updated window appears with the BBDB record of the sender
of the displayed message (if any).  Since I found it annoying that that window
stays around when I exit the summary, I did this:

(add-hook 'wl-summary-exit-hook
			 '(lambda ()
             (when (get-buffer-window bbdb-buffer-name 'visible)
               (quit-windows-on bbdb-buffer-name nil t))))

Please let me know if this isn't the best way to do it.  (I'm an elisp novice.)

On Tue 20 Feb 2018 at 07:35 Rob Walker wrote:
> On Mon, 12 Feb 2018 02:57:51 -0800, Greg Bognar wrote:
> > 
> > I did just this, and now the error message is
> > 
> > Error occured in running wl-message-redisplay-hook, (arrayp nil)
> > 
> > But the message is displayed.
> > 
> > bbdb-20180106.910
> > 
> 
> Bare minimum emacs, wl configurations.  I am trying to get this working with
> the bare minimum configurations.  It looks like we only need to change code to
> BBDBv3.
> 
> Please test and let me know if it works for you.
> 
> ~/.emacs.d/init.el :
> 
> (require 'package)
> (add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
> 
> (package-initialize)
> 
> (defvar wl-folders-file)
> (defvar wl-init-file)
> 
> (setq wl-init-file "~/.emacs.d/wl-init.el")
> (setq wl-folders-file "~/.emacs.d/wl-folders")
> 
> (custom-set-variables
>  '(package-selected-packages (quote (bbdb wanderlust))))
> (custom-set-faces
>  )
> 
> 
> ~/.emacs.d/wl-folders :
> 
> #
> # Folder definition file
> # This file is generated automatically by Wanderlust/2.15.9 (Almost Unreal).
> #
> # If you edit this file by hand, be sure that comment lines
> # will be washed out by wl-fldmgr.
> #
> 
> %:rob/[email protected]:993!/
> 
> # petname definition (access group, folder in access group)
> 
> # end of file.
> 
> 
> ~/.emacs.d/wl-init.el :
> 
> (setq wl-from "Rob Walker <[email protected]>")
> (setq wl-local-domain "ladle.net")
> (setq wl-message-id-domain "ladle.net")
> 
> (require 'bbdb) 
> (bbdb-initialize 'wl)
> (bbdb-mua-auto-update-init 'wl)
> (setq bbdb-update-records-p 'create)
> 
> 
> changes made to code:
> 
> $ diff -ur .emacs.d/wanderlust-20180210.2213-pristine .emacs.d/elpa/wanderlust-20180210.2213
> $ diff -ur .emacs.d/bbdb-3.2-pristine .emacs.d/elpa/bbdb-3.2
> diff -ur .emacs.d/bbdb-3.2-pristine/bbdb-mua.el .emacs.d/elpa/bbdb-3.2/bbdb-mua.el
> --- .emacs.d/bbdb-3.2-pristine/bbdb-mua.el      2018-02-19 21:54:09.952786956 -0800
> +++ .emacs.d/elpa/bbdb-3.2/bbdb-mua.el  2018-02-19 22:11:49.417480164 -0800
> @@ -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 mime-view-mode wl-summary-mode wl-draft-mode)
>      (message message-mode mu4e-compose-mode notmuch-message-mode)
>      (mail mail-mode))
>    "Alist of MUA modes supported by BBDB.
> Only in .emacs.d/elpa/bbdb-3.2: bbdb-mua.el~
> diff -ur .emacs.d/bbdb-3.2-pristine/bbdb-wl.el .emacs.d/elpa/bbdb-3.2/bbdb-wl.el
> --- .emacs.d/bbdb-3.2-pristine/bbdb-wl.el       2018-02-19 21:54:09.108771224 -0800
> +++ .emacs.d/elpa/bbdb-3.2/bbdb-wl.el   2018-02-19 22:13:38.858475651 -0800
> @@ -36,10 +36,11 @@
>  
>  ;;;###autoload
>  (defun bbdb/wl-header (header)
> +  (with-current-buffer (get-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))
> +   (intern (downcase header)) 'string)))
>  
>  ;;;###autoload
>  (defun bbdb-insinuate-wl ()