sbbs.el

Diff
Login

Differences From Artifact [730ca416cd]:

To Artifact [0404974fcc]:


   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)