Navi2ch for Emacs (Part 22)

Navi2ch for Emacs (Part 22) (370ﾚｽ)
上下前次 1-新

174: sage 2023/07/15(土)12:44 AA×

174: sage [] 2023/07/15(土) 12:44:09.11

その3の2
@@ -304,6 +302,10 @@ nil なら常に再接続する。")
(navi2ch-net-cleanup-vars)
(setq navi2ch-net-process proc))))

+(defun navi2ch-net-split-url-scheme-to-rest (scheme)
+  (if (string-prefix-p "https:" scheme)
+        '(:type tls)))
+
(defun navi2ch-net-split-url (url &optional proxy)
(let (host2ch authinfo user pass)
(string-match "https?://\\([^@/]+@\\)?\\([^/]+\\)" url)
@@ -324,16 +326,21 @@ nil なら常に再接続する。")
(cons 'host (match-string 2 proxy))
(cons 'file url)
(cons 'port (string-to-number (match-string 3 proxy)))
-           (cons 'host2ch host2ch)))
-      (string-match "https?://\\(?:[^@/]+@\\)?\\([^/:]+\\)\\(?::\\([0-9]+\\)\\)?\\(.*\\)" url)
+           (cons 'host2ch host2ch)
+    (cons 'rest (navi2ch-net-split-url-scheme-to-rest (match-string 1 proxy)))))
+      (string-match "\\(https?://\\)\\(?:[^@/]+@\\)?\\([^/:]+\\)\\(?::\\([0-9]+\\)\\)?\\(.*\\)" url)
(list
(cons 'user user)
(cons 'pass pass)

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

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

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

ぬこの手ぬこTOP 0.917s*