sbbs.el: Diff

Differences From Artifact [bf2e481917]:

File sbbs.el — part of check-in [268b829751] at 2023-09-09 09:13:34 on branch master — fix the VIP/sage function (user: anon, size: 31430) [annotate] [blame] [check-ins using]

To Artifact [a0ab64dda3]:

File sbbs.el — part of check-in [830ca8047f] at 2024-02-29 20:07:34 on branch master — Fix detection of references in 'sbbs-show-replies' The 'sbbs-ref' property was not stored in the overlay, but as a text-property inside the buffer. For that reason, it would always find no references, even if there were references in the same thread. (user: zge, size: 31544) [annotate] [blame] [check-ins using]

   567    567           (sbbs--limit-to-range (cdar sbbs--limit-stack) t)
   568    568           (when point (goto-char point))))))
   569    569   
   570    570   (defun sbbs-show-replies ()
   571    571     "Show all posts responding to post at point."
   572    572     (interactive)
   573    573     (let ((nr (get-text-property (point) 'sbbs-thread-nr))
   574         -        (point (point)) overlay range)
   575         -    (while (setq overlay (next-button point))
   576         -      (when (memq nr (overlay-get overlay 'sbbs-ref))
   577         -        (push (get-text-property (overlay-start overlay)
   578         -                                 'sbbs-thread-nr)
   579         -              range))
   580         -      (setq point (overlay-end overlay)))
          574  +        overlay range)
          575  +    (save-excursion
          576  +      (while (setq overlay (next-button (point)))
          577  +        (let ((refs (get-text-property (overlay-start overlay)
          578  +                                      'sbbs-ref)))
          579  +          (when (memq nr refs)
          580  +            (push (get-text-property (overlay-start overlay)
          581  +                                     'sbbs-thread-nr)
          582  +                  range)))
          583  +        (goto-char (overlay-end overlay))))
   581    584       (if range
   582    585           (sbbs--limit-to-range range)
   583    586         (message "No posts referencing %d" nr))))
   584    587   
   585    588   (defun sbbs-view-open (id &optional range)
   586    589     "Open thread ID in new buffer.
   587    590   If RANGE is nil, display all posts.  If range is a list, display