Navi2ch for Emacs (Part 22)

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

173: sage 2023/07/15(土)12:40 AA×

外部ﾘﾝｸ:"url

[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]

173: sage [] 2023/07/15(土) 12:40:59.47

その3の1

diff --git a/navi2ch-net.el b/navi2ch-net.el
index dc11ec5..972c97f 100644
--- a/navi2ch-net.el
+++ b/navi2ch-net.el
@@ -228,7 +228,8 @@ nil なら常に再接続する。")
host (cdr (assq 'host list))
file (cdr (assq 'file list))
port (cdr (assq 'port list))
-            host2ch (cdr (assq 'host2ch list))))
+            host2ch (cdr (assq 'host2ch list))
+     rest (cdr (assq 'rest list))))
(when navi2ch-net-http-proxy
(setq credentials (navi2ch-net-http-basic-credentials
navi2ch-net-http-proxy-userid
@@ -257,11 +258,8 @@ nil なら常に再接続する。")
(setq proc nil)
(unless (navi2ch-net-down-p host)
(condition-case nil
-              (if (string-match "^https://" url)
-                  (setq proc (funcall 'open-tls-stream
-                                      navi2ch-net-connection-name buf host "443"))
-                (setq proc (funcall navi2ch-open-network-stream-function
-                                    navi2ch-net-connection-name buf host port)))
+       (setq proc (apply navi2ch-open-network-stream-function
+    navi2ch-net-connection-name buf host port rest))
(error (navi2ch-net-add-down-host host)))))
(when proc
(with-current-buffer buf

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

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

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

ぬこの手ぬこTOP 0.037s