[elpa] externals/gnorb 09346e0 141/449: BBDB message link list needs closing newline

[Stefan Monnier]

branch: externals/gnorb
commit 09346e085cc58f94a0f344d3060c9eb6bae32cc2
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

     BBDB message link list needs closing newline
    
    lisp/gnorb-bbdb.el: (gnorb-bbdb-display-messages) End with a newline.
                    Actually, I'm not totally sure this is correct, it
                    only appears that way since this is the last field
                    on all my records.
---
 lisp/gnorb-bbdb.el | 50 ++++++++++++++++++++++++++------------------------
 1 file changed, 26 insertions(+), 24 deletions(-)

diff --git a/lisp/gnorb-bbdb.el b/lisp/gnorb-bbdb.el
index ce95a84..43df598 100644
--- a/lisp/gnorb-bbdb.el
+++ b/lisp/gnorb-bbdb.el
@@ -395,35 +395,37 @@ layout type."
       ;; indent and fmt are dynamically bound
       (when (eq format 'multi)
        (bbdb-display-text (format fmt gnorb-bbdb-messages-field)
-                         `(xfields ,full-field field-label)
-                         'bbdb-field-name))
+                          `(xfields ,full-field field-label)
+                          'bbdb-field-name))
       (insert (cond ((and (stringp val)
                          (eq format 'multi))
                     (bbdb-indent-string (concat val "\n") indent))
                    ((listp val)
-                    (bbdb-indent-string
-                     (mapconcat
-                      (lambda (m)
-                        (prog1
-                            (org-propertize
-                             (concat
-                              (format-time-string
-                               (replace-regexp-in-string
-                                "%:subject" (gnorb-bbdb-link-subject m)
+                    (concat
+                     (bbdb-indent-string
+                      (mapconcat
+                       (lambda (m)
+                         (prog1
+                             (org-propertize
+                              (concat
+                               (format-time-string
                                 (replace-regexp-in-string
-                                 "%:count" (number-to-string count)
-                                 (if (eq format 'multi)
-                                     gnorb-bbdb-message-link-format-multi
-                                   gnorb-bbdb-message-link-format-one)))
-                               (gnorb-bbdb-link-date m)))
-                             'face 'gnorb-bbdb-link
-                             'mouse-face 'highlight
-                             'gnorb-bbdb-link-count count
-                             'keymap map)
-                          (incf count)))
-                      val (if (eq format 'multi)
-                              "\n" ", "))
-                     indent))
+                                 "%:subject" (gnorb-bbdb-link-subject m)
+                                 (replace-regexp-in-string
+                                  "%:count" (number-to-string count)
+                                  (if (eq format 'multi)
+                                      gnorb-bbdb-message-link-format-multi
+                                    gnorb-bbdb-message-link-format-one)))
+                                (gnorb-bbdb-link-date m)))
+                              'face 'gnorb-bbdb-link
+                              'mouse-face 'highlight
+                              'gnorb-bbdb-link-count count
+                              'keymap map)
+                           (incf count)))
+                       val (if (eq format 'multi)
+                               "\n" ", "))
+                      indent)
+                     (if (eq format 'multi) "\n" "")))
                    (t
                     ""))))))