Differences From
Artifact [730ca416cd]:
309 309 (sbbs-view-open id range)))
310 310 ;; this thread
311 311 (range (sbbs--limit-to-range range))))))
312 312 (propertize text 'action func 'sbbs-ref range)))))
313 313
314 314 (defun sbbs--process-sxml (sxml)
315 315 "Process SXML into a formatted string."
316 - (message "%S" sxml)
317 316 (let (processed)
318 317 (dolist (it (if (listp sxml) sxml (list sxml)))
319 318 (push (cond ((stringp it)
320 319 (propertize it 'face 'sbbs--variable-pitch))
321 320 ((eq (car it) 'br)
322 321 "\n")
323 322 ((eq (car it) 'b)