From: Stefan Kangas <stefankangas@gmail.com>
Date: Tue, 24 Oct 2023 20:40:12 +0000 (+0200)
Subject: Prefer HTTPS to HTTP in ffap
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=643c67cf239cbb9621b3c2aaadd58697d87996f5;p=emacs.git

Prefer HTTPS to HTTP in ffap

* lisp/ffap.el (ffap-fixup-machine): Prefer HTTPS to HTTP for things
looking like URIs (for example www.example.org).
---

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 6f477dd790b..942e218bf23 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -554,7 +554,7 @@ Looks at `ffap-ftp-default-user', returns \"\" for \"localhost\"."
     (concat "gopher://" mach "/"))
    ;; www.ncsa.uiuc.edu
    ((and (string-match "\\`w\\(ww\\|eb\\)[-.]" mach))
-    (concat "http://" mach "/"))
+    (concat "https://" mach "/"))
    ;; More cases?
    (ffap-ftp-regexp (ffap-host-to-filename mach))
    ))