sbbs.el: Diff

Differences From 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]

To Artifact [cff74e11bf]:

File sbbs.el — part of check-in [42800999ca] at 2020-02-26 22:23:57 on branch master — stopped renaming thread buffers from "loading..." to "reading..." (user: philip@warpmail.net, size: 15677) [annotate] [blame] [check-ins using]

   276    276             (erase-buffer)
   277    277             (setq header-line-format
   278    278                   (format "Thread %d: %s" id
   279    279                           (cdr (assq 'headline thread))))
   280    280             (dolist (post (cadr (assq 'posts thread)))
   281    281               (sbbs--thread-insert-post post))
   282    282             (delete-blank-lines)
   283         -          (goto-char (point-min)))
   284         -        (rename-buffer (format "*reading /%s/%d*"
   285         -                               (sbbs--board-name sbbs--board)
   286         -                               id))))))
          283  +          (goto-char (point-min)))))))
   287    284   
   288    285    ;; INTERACTIVE FUNCTIONS
   289    286   
   290    287   (defun sbbs-view-open (id)
   291    288     "Open thread ID in new buffer."
   292    289     (interactive (list (tabulated-list-get-id)))
   293    290     (let ((url (sbbs--board-url (format "/%d" id) t))
   294    291           (headline (or (and (not (tabulated-list-get-entry))
   295    292                              header-line-format)
   296    293                         (substring-no-properties
   297    294                          (aref (tabulated-list-get-entry) 2))))
   298    295           (board sbbs--board)
   299    296           (buf (get-buffer-create
   300         -              (format "*loading /%s/%d*"
          297  +              (format "*reading /%s/%d*"
   301    298                         (sbbs--board-name sbbs--board)
   302    299                         id))))
   303    300       (with-current-buffer buf
   304    301         (sbbs-read-mode)
   305    302         (when headline
   306    303           (setq header-line-format (format "Thread %d: %s" id headline)))
   307    304         (setq sbbs--board board