Index: sbbs.el ================================================================== --- sbbs.el +++ sbbs.el @@ -289,21 +289,24 @@ (defun sbbs-view-open (id) "Open thread ID in new buffer." (interactive (list (tabulated-list-get-id))) (let ((url (sbbs--board-url (format "/%d" id) t)) - (headline (substring-no-properties - (aref (tabulated-list-get-entry ) 2))) + (headline (or (and (not (tabulated-list-get-entry)) + header-line-format) + (substring-no-properties + (aref (tabulated-list-get-entry) 2)))) (board sbbs--board) (buf (get-buffer-create (format "*loading /%s/%d*" (sbbs--board-name sbbs--board) id)))) (with-current-buffer buf (sbbs-read-mode) - (setq header-line-format (format "Thread %d: %s" id headline) - sbbs--board board + (when headline + (setq header-line-format (format "Thread %d: %s" id headline))) + (setq sbbs--board board sbbs--thread-id id)) (url-retrieve url #'sbbs--thread-loader (list id buf)) (switch-to-buffer buf))) (defun sbbs-view-compose ()