sbbs.el: Diff

Differences From Artifact [c6978dc733]:

File sbbs.el — part of check-in [99f8459c8b] at 2021-01-19 15:39:17 on branch master — Add sbbs-goto-end for jumping to the end of a thread (user: zge, size: 27306) [annotate] [blame] [check-ins using]

To Artifact [7cb8f67ab8]:

File sbbs.el — part of check-in [b0f8109722] at 2021-01-22 17:08:47 on branch master — Make sbbs-read-board prompt easier to use (user: zge, size: 27303) [annotate] [blame] [check-ins using]

   154    154       (dolist (b (sbbs--list-boards))
   155    155         (when (and sbbs-default-board
   156    156                    (string= (sbbs--board-domain b)
   157    157                             (car sbbs-default-board))
   158    158                    (string= (sbbs--board-name b)
   159    159                             (cdr sbbs-default-board)))
   160    160           (setq def b))
   161         -      (push (cons (format "/%s/ (%s)"
   162         -                          (sbbs--board-name b)
   163         -                          (sbbs--board-domain b))
          161  +      (push (cons (format "%s/%s/"
          162  +                          (sbbs--board-domain b)
          163  +                          (sbbs--board-name b))
   164    164                     b)
   165    165               boards))
   166    166       (let ((choice (completing-read
   167    167                      (if def
   168    168                          (format "Board (default %s/%s): "
   169    169                                  (sbbs--board-domain def)
   170    170                                  (sbbs--board-name def))