@@ -84,14 +84,17 @@
 (define (html$-note-title pagenode parent-title)
   (format "Re: <a class=\"cross-reference\" href=\"/~a\">~a</a>"
           pagenode
           parent-title))
 
-(define (html$-note-contents disposition-mark elems)
+(define (html$-note-contents disposition-mark disposition-verb elems)
   (define disposition
     (cond [(non-empty-string? disposition-mark)
-           `(span [[class "disposition-mark"]] ,disposition-mark)]
+           `(abbr [[class "disposition-mark-in-note"]
+                   [title ,(string-append "The original article is herewith considered "
+                                          disposition-verb)]]
+                  ,disposition-mark)]
           [else ""]))
   (define body-elems
     (cond
       [(and (block-txexpr? (car elems)) (non-empty-string? disposition-mark))
        (define-values (first-tag first-attrs first-elems) (txexpr->values (car elems)))