Navi2ch for Emacs (Part 22) (390ﾚｽ)
Navi2ch for Emacs (Part 22) http://mevius.5ch.net/test/read.cgi/unix/1575011531/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
171: sage [] 2023/07/15(土) 12:34:17.12 その1 diff --git a/navi2ch-list.el b/navi2ch-list.el index 4188735..a2e8cad 100644 --- a/navi2ch-list.el +++ b/navi2ch-list.el @@ -567,7 +567,7 @@ changed-list は '((board-id old-board new-board) ...) な alist。 (let ((board-id (cdr (assoc url navi2ch-list-board-id-alist)))) (or board-id (save-match-data - (if (string-match "\\`http://.+/\\([^/]+\\)/\\'" url) + (if (string-match "\\`https?://.+/\\([^/]+\\)/\\'" url) (match-string 1 url)))))) (defun navi2ch-list-make-board-txt () @@ -590,7 +590,7 @@ changed-list は '((board-id old-board new-board) ...) な alist。 (if (string-match "a" tag) (let (url board-id id u) (when (and (not ignore) - (string-match "href=\\(.+/\\([^/]+\\)/\\)" attr)) + (string-match "href=\"?\\(.+/\\([^/]+\\)/\\)" attr)) (setq url (match-string 1 attr)) (setq url (or (cdr (assoc url @@ -624,7 +624,7 @@ changed-list は '((board-id old-board new-board) ...) な alist。 (defun navi2ch-list-valid-board (uri) (save-match-data - (when (string-match "http://\\([^/]+\\)/\\([^/]+\\)/" uri) + (when (string-match "https?://\\([^/]+\\)/\\([^/]+\\)/" uri) (let ((host (match-string 1 uri))) (and (not (string-match navi2ch-list-invalid-host-regexp host)) (string-match navi2ch-list-valid-host-regexp host)))))) http://mevius.5ch.net/test/read.cgi/unix/1575011531/171
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 219 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.013s