sbbs.el: Diff

Differences From Artifact [d697b54718]:

File sbbs.el — part of check-in [5bade98968] at 2021-05-28 12:04:06 on branch master — Require text-property-search (user: zge, size: 28966) [annotate] [blame] [check-ins using] [more...]

To Artifact [dcc35df79d]:

File sbbs.el — part of check-in [88a124bbee] at 2021-05-29 12:39:51 on branch master — Kill buffer after parsing response (user: zge, size: 28998) [annotate] [blame] [check-ins using]

   458    458                                    (cdr (assq 'messages (cdr thread))))
   459    459                                   (propertize
   460    460                                    (cdr (assq 'headline (cdr thread)))
   461    461                                    'face 'sbbs--variable-pitch)))
   462    462                     ent))
   463    463             (setq-local tabulated-list-entries ent)
   464    464             (tabulated-list-print t t)
   465         -          (hl-line-highlight))))))
          465  +          (hl-line-highlight)))))
          466  +  (kill-buffer))
   466    467   
   467    468   (defun sbbs--thread-loader (status id buf range)
   468    469     "Callback function for `url-retrieve' when loading thread.
   469    470   
   470    471   The attribute ID determines what thread from board BOARD to
   471    472   load.  STATUS is used to check for errors."
   472    473     (when (buffer-live-p buf)
................................................................................
   497    498             (dolist (post (cadr (assq 'posts thread)))
   498    499               (sbbs--thread-insert-post post))
   499    500             (delete-blank-lines)
   500    501             (when range
   501    502               (sbbs--limit-to-range range))
   502    503             (if sbbs-open-at-last-post
   503    504                 (sbbs-goto-end)
   504         -            (goto-char (point-min))))))))
          505  +            (goto-char (point-min)))))))
          506  +  (kill-buffer))
   505    507   
   506    508    ;; INTERACTIVE FUNCTIONS
   507    509   
   508    510   (defun sbbs-show-all ()
   509    511     "Show all hidden posts."
   510    512     (interactive)
   511    513     (sbbs-show-pop -1))