sbbs.el

Differences From Artifact [5ad14f783c]:

• File sbbs.el — part of check-in [50b5a3c4bd] at 2020-02-26 22:22:49 on branch master — stopped filling paragraphs after manual line break (user: philip@warpmail.net, size: 15685) [annotate] [blame] [check-ins using]

To Artifact [63b5169aec]:

• File sbbs.el — part of check-in [25999f9e22] at 2020-02-26 22:23:35 on branch master — fixed revert buffer bug in thread buffers (user: philip@warpmail.net, size: 15825) [annotate] [blame] [check-ins using]

   287    287   
   288    288    ;; INTERACTIVE FUNCTIONS
   289    289   
   290    290   (defun sbbs-view-open (id)
   291    291     "Open thread ID in new buffer."
   292    292     (interactive (list (tabulated-list-get-id)))
   293    293     (let ((url (sbbs--board-url (format "/%d" id) t))
   294         -        (headline (substring-no-properties
   295         -                   (aref (tabulated-list-get-entry ) 2)))
          294  +        (headline (or (and (not (tabulated-list-get-entry))
          295  +                           header-line-format)
          296  +                      (substring-no-properties
          297  +                       (aref (tabulated-list-get-entry) 2))))
   296    298           (board sbbs--board)
   297    299           (buf (get-buffer-create
   298    300                 (format "*loading /%s/%d*"
   299    301                         (sbbs--board-name sbbs--board)
   300    302                         id))))
   301    303       (with-current-buffer buf
   302    304         (sbbs-read-mode)
   303         -      (setq header-line-format (format "Thread %d: %s" id headline)
   304         -            sbbs--board board
          305  +      (when headline
          306  +        (setq header-line-format (format "Thread %d: %s" id headline)))
          307  +      (setq sbbs--board board
   305    308               sbbs--thread-id id))
   306    309       (url-retrieve url #'sbbs--thread-loader (list id buf))
   307    310       (switch-to-buffer buf)))
   308    311   
   309    312   (defun sbbs-view-compose ()
   310    313     "Create buffer to start a new thread."
   311    314     (interactive)