- 31 名前：27 mailto:sage [2020/06/10(水) 15:44:33.30 .net]
- >>28-29
ありがとう。素人だから即席だけど読めるようになった。
diff --git a/navi2ch-list.el b/navi2ch-list.el
index 4188735..48a19ea 100644
--- a/navi2ch-list.el
+++ b/navi2ch-list.el
@@ -592,6 +592,8 @@ changed-list は '((board-id old-board new-board) ...) な alist。
(when (and (not ignore)
(string-match "href=\\(.+/\\([^/]+\\)/\\)" attr))
(setq url (match-string 1 attr))
+ (when (string-match "^https" url)
+ (setq url (replace-regexp-in-string "^https" "http" url)))
(setq url (or (cdr (assoc
url
navi2ch-list-moved-board-alist))
|
 |
