^https -> ^https://

naota · Jul 15, 2014 · 27b020a · 27b020a
1 parent ae90fdb
commit 27b020a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2014-07-16  MIZUNUMA Yuto  <mizmiz@sf.net>
+
+	* navi2ch-net.el (navi2ch-net-send-request): https -> https://
+
 2014-07-14  MIZUNUMA Yuto  <mizmiz@sf.net>
 
 	* navi2ch-thumbnail.el (navi2ch-thumbnail-url-coversion-table):

diff --git a/navi2ch-net.el b/navi2ch-net.el
@@ -257,7 +257,7 @@ nil $B$J$i>o$K:F@\B3$9$k!#(B")
 	(setq proc nil)
 	(unless (navi2ch-net-down-p host)
 	  (condition-case nil
-              (if (string-match "^https" url)
+              (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