Re: bbdb3

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 ()