fix when quoted post is a string e.g. "aaaads" rather than alistHEADmaster

1 files changed, 8 insertions, 1 deletions

diff --git a/exitter.el b/exitter.el
index 1b976a9..13c7091 100644
--- a/exitter.el
+++ b/exitter.el
@@ -583,7 +583,14 @@ Including ancestors and descendants, if any."
             (if .quoted
                 (format "\n\n----\n%s----"
                         (replace-regexp-in-string
-                         "^." " \\&" (exitter-format-post .quoted.post 1)))
+                         "^." " \\&"
+                         (if (stringp .quoted)
+                             (message "Quoted post is a plain string: %s\n"
+                                      .quoted)
+                           ;; We can't use .quoted.post here because
+                           ;; for some reason it is evaluated even if
+                           ;; the "if" branch is entered.
+                           (exitter-format-post (alist-get 'post .quoted) 1))))
               "")
             .reply_count
             .quote_count