As attached.

>From 778856e2a52c42dbef4d543b16b00dbad31eef06 Mon Sep 17 00:00:00 2001
From: Leo Liu <sdl....@gmail.com>
Date: Sun, 21 Apr 2013 14:12:17 +0800
Subject: [PATCH] Fix thinko in bbdb-mua-summary-mark

---
 ChangeLog        | 4 ++++
 lisp/bbdb-mua.el | 5 +++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fef7c798..1c494e5f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2013-04-21  Leo Liu  <sdl....@gmail.com>
+
+	* lisp/bbdb-mua.el (bbdb-mua-summary-mark): Fix thinko.
+
 2013-04-13  Roland Winkler  <wink...@gnu.org>
 	* lisp/bbdb.el (bbdb-utilities-snarf): New custom group.
 	* lisp/bbdb-snarf.el: New file.
diff --git a/lisp/bbdb-mua.el b/lisp/bbdb-mua.el
index d1b8c9e6..742e08d5 100644
--- a/lisp/bbdb-mua.el
+++ b/lisp/bbdb-mua.el
@@ -1115,8 +1115,9 @@ (defun bbdb-mua-summary-mark (address)
            (record (and (or name mail)
                         (car (bbdb-message-search name mail)))))
       (if record
-          (or (prog1 (functionp bbdb-mua-summary-mark-field)
-                (funcall bbdb-mua-summary-mark-field record))
+          (or (when (functionp bbdb-mua-summary-mark-field)
+                (funcall bbdb-mua-summary-mark-field record)
+                t)
               (bbdb-record-xfield record bbdb-mua-summary-mark-field)
               bbdb-mua-summary-mark)
         " "))))
-- 
1.8.2

------------------------------------------------------------------------------
Precog is a next-generation analytics platform capable of advanced
analytics on semi-structured data. The platform includes APIs for building
apps and a phenomenal toolset for data science. Developers can use
our toolset for easy data analysis & visualization. Get a free account!
http://www2.precog.com/precogplatform/slashdotnewsletter
_______________________________________________
bbdb-info@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/

Reply via email to