Navi2ch for Emacs (Part 22)

Navi2ch for Emacs (Part 22) (390ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

175: sage [その3の3 最後] 2023/07/15(土) 12:44:44.17

-       (cons 'host (match-string 1 url))
-       (cons 'port (string-to-number (or (match-string 2 url)
-      "80")))
-       (cons 'file (match-string 3 url))
-       (cons 'host2ch host2ch)))))
+       (cons 'host (match-string 2 url))
+       (cons 'port
+      (if (match-string 3 url)
+   (string-to-number (match-string 3 url))
+        (if (string-prefix-p "https:" (match-string 1 url))
+     443 80)))
+       (cons 'file (match-string 4 url))
+       (cons 'host2ch host2ch)
+       (cons 'rest (navi2ch-net-split-url-scheme-to-rest (match-string 1 url)))))))

(defun navi2ch-net-http-basic-credentials (user pass)
"USER と PASS から Basic 認証の証明書 (?) 部分を返す。"
@@ -999,7 +1006,7 @@ This is taken from RFC 2396.")
"BBS_\$TITLE_PICTURE\\|FIGUREHEAD\$=\$.+\$" content))
(setq src (match-string 2 content))
(let (url file)
- (setq url (if (string-match "http://" src)
+ (setq url (if (string-match "https?://" src)
src
(navi2ch-board-get-url board src)))
(string-match "/\$[^/]+\$$" url)

http://mevius.5ch.net/test/read.cgi/unix/1575011531/175

上下前次 1-新書関写板覧索設栞歴

あと 215 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.005s