@@ -71,10 +71,11 @@
 
 (define table_notes-fields
   '(pagenode
     note_id
     title_html_flow
+    title_plain
     author
     author_url
     date
     disposition
     content_html
@@ -318,11 +319,13 @@
                            disposition-attr))
   
   ;; Parse out remaining columns
   (define author (maybe-attr 'author attrs default-authorname))
   (define note-id (build-note-id note-tx))
-  (define title-html-flow (html$-note-title pagenode parent-title-plain))
+  (define title-tx (make-note-title pagenode parent-title-plain))
+  (define title-html-flow (->html title-tx #:splice? #t))
+  (define title-plain (tx-strs title-tx))
   (define author-url (maybe-attr 'author-url attrs))
   (define-values (disp-mark disp-verb) (disposition-values disposition-attr))
   (define content-html (html$-note-contents disp-mark disp-verb (get-elements note-tx)))
   (define listing-full-html
     (html$-note-listing-full pagenode note-id title-html-flow note-date content-html author author-url))
@@ -329,10 +332,11 @@
 
   (define note-record
     (list pagenode
           note-id
           title-html-flow
+          title-plain
           author
           author-url
           note-date
           disposition-attr
           content-html
@@ -350,10 +354,15 @@
             (list->sql-parameters table_notes-fields)))
   (apply query! save-note-query note-record)
   
   ;; return html$ of note
   (html$-note-in-article note-id note-date content-html author author-url))
+
+(define (make-note-title pagenode parent-title-plain)
+  `(note-title "Re: " (a [[class "cross-reference"]
+                          [href ,(format "~a~a" web-root pagenode)]]
+                         ,parent-title-plain)))
 
 (define (article-plain-title pagenode)
   (query-value (sqltools:dbc) "SELECT `title_plain` FROM `articles` WHERE `pagenode` = ?1" (symbol->string pagenode)))
 
 ;; ~~~ Keyword Index Entries ~~~