Damon Lipparelli writes:
> Now, when I try to look at a message (with ".") I get the
> following error message displayed in the minibuffer: "Wrong type
> argument: listp, 27248" It doesn't seem to matter who the message
> is from, but my BBDB file is pretty small, so I don't think there
> are BBDB entries for any of the people that I am getting mail
> from.
Here is a patch. The problem arose from the different results that Lucid
Emacs and FSF Emacs return for the file-attributes function.
--Fritz
*** bbdb-mhe.el Tue Dec 7 10:54:05 1993
--- ../bbdb-mhe.el Tue Dec 7 10:44:09 1993
***************
*** 24,34 ****
(require 'mh-e) ; Note- we advise several functions in this file.
(require 'advice)
! (defmacro bbdb/mh-cache-key (message)
! "Return a (numeric) key for MESSAGE"
! (`(let* ((attrs (file-attributes (, message)))
! (status-time (nth 6 attrs)))
! (logxor (nth 10 attrs) (car status-time) (car (cdr status-time))))))
;;;% Currently assumes msg buffer is the current buffer,
;;;% as usually (always?) is when called from the hook.
--- 24,40 ----
(require 'mh-e) ; Note- we advise several functions in this file.
(require 'advice)
! (if (string-match "Lucid" emacs-version)
! (defmacro bbdb/mh-cache-key (message)
! "Return a (numeric) key for MESSAGE"
! (`(let* ((attrs (file-attributes (, message)))
! (status-time (nth 6 attrs)))
! (logxor (nth 10 attrs) (car status-time) (cdr status-time)))))
! (defmacro bbdb/mh-cache-key (message)
! "Return a (numeric) key for MESSAGE"
! (`(let* ((attrs (file-attributes (, message)))
! (status-time (nth 6 attrs)))
! (logxor (nth 10 attrs) (car status-time) (car (cdr status-time)))))))
;;;% Currently assumes msg buffer is the current buffer,
;;;% as usually (always?) is when called from the hook.
