sbbs.el: Diff

Differences From Artifact [75ce247893]:

File sbbs.el — part of check-in [a9ee28fa6d] at 2020-06-08 10:26:26 on branch master — Fix sbbs-compose-format when mark is before point (user: zge, size: 26407) [annotate] [blame] [check-ins using]

To Artifact [e334160be5]:

File sbbs.el — part of check-in [df55ff6293] at 2020-06-18 13:11:24 on branch master — Fixed URL handeling with ","-ranges (user: zge, size: 26569) [annotate] [blame] [check-ins using]

   218    218                 "/" (group-n 4 (: (+ digit) (? "-" (+ digit)))
   219    219                              (* "," (+ digit) (? "-" (+ digit)))))
   220    220              (: "http" (? "s") "://"
   221    221                 (group-n 1 (or ,@(mapcar #'sbbs--board-domain
   222    222                                          (sbbs--list-boards))))
   223    223                 "/" (group-n 2 (+ alnum))
   224    224                 "/" (group-n 3 (+ digit))
   225         -              (? "#t" (backref 3)
   226         -                 "p" (group-n 4 (+ digit)))))
          225  +              (? (or (: "/" (group-n 4 (: (+ digit) (? "-" (+ digit)))
          226  +                                     (* "," (+ digit) (? "-" (+ digit)))))
          227  +                     (: "#t" (backref 3)
          228  +                        "p" (group-n 4 (+ digit)))))))
   227    229          eos))
   228    230     "Regular expression to destruct internal links.")
   229    231   
   230    232   (defun sbbs--limit-to-range (spec &optional no-push-p)
   231    233     "Hide all posts in the current thread, that aren't in SPEC.
   232    234   
   233    235   Unless NO-PUSH-P is non-nil, SPEC will be pushed onto