Overview
Comment: | fixed revert buffer bug in thread buffers |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
25999f9e22da597491e373a43a24e81c |
User & Date: | philip@warpmail.net on 2020-02-26 22:23:35 |
Other Links: | branch diff | manifest | tags |
Context
2020-02-26
| ||
22:23 | stopped renaming thread buffers from "loading..." to "reading..." check-in: 42800999ca user: philip@warpmail.net tags: master, trunk | |
22:23 | fixed revert buffer bug in thread buffers check-in: 25999f9e22 user: philip@warpmail.net tags: master, trunk | |
22:22 | stopped filling paragraphs after manual line break check-in: 50b5a3c4bd user: philip@warpmail.net tags: master, trunk | |
Changes
Modified sbbs.el from [5ad14f783c] to [63b5169aec].
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)