[nongnu] elpa/mastodon 4844a1147a 44/63: no newline after READ MORE heading

[ELPA Syncer]

branch: elpa/mastodon
commit 4844a1147a7ae23c996aa21a98ae4229fe172649
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    no newline after READ MORE heading
---
 lisp/mastodon-search.el | 4 ++--
 lisp/mastodon-tl.el     | 5 ++---
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el
index e69366e692..f862f3cf46 100644
--- a/lisp/mastodon-search.el
+++ b/lisp/mastodon-search.el
@@ -128,14 +128,14 @@ Optionally add string TYPE after HEADING."
   (insert
    (mastodon-search--format-heading str type)))
 
-(defun mastodon-search--format-heading (str &optional type)
+(defun mastodon-search--format-heading (str &optional type no-newline)
   "Format STR as a heading.
 Optionally add string TYPE after HEADING."
   (mastodon-tl--set-face
    (concat "\n " mastodon-tl--horiz-bar "\n "
            (upcase str) " "
            (if type (upcase type) "") "\n"
-           " " mastodon-tl--horiz-bar "\n")
+           " " mastodon-tl--horiz-bar (unless no-newline "\n"))
    'success))
 
 (defvar mastodon-search-types
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 70d02236a2..b9a5535ab5 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1573,9 +1573,8 @@ Folding decided by `mastodon-tl--fold-toots-at-length'."
           (length< body mastodon-tl--fold-toots-at-length))
       body
     (let* ((heading (mastodon-search--format-heading
-                     (mastodon-tl--make-link
-                      "READ MORE"
-                      'read-more)))
+                     (mastodon-tl--make-link "READ MORE" 'read-more)
+                     nil :no-newline))
            (display (concat (substring body 0
                                        mastodon-tl--fold-toots-at-length)
                             heading)))