Re: master 0910230be6e: ; Prefer HTTPS to HTTP in more links

[Ruijie Yu]

Hello Stefan,

I believe there are some places where you modified, where http is indeed 
intended rather than https.  For example, doc/misc/org.org tries to tell 
readers that Org supports many protocols, one of which is http. 

--
Best, 


RY

> On Aug 3, 2023, at 05:42, Stefan Kangas <stefankangas@gmail.com> wrote:
> 
> branch: master
> commit 0910230be6ee858d8d8849a1fc9559bfd163dc38
> Author: Stefan Kangas <stefankangas@gmail.com>
> Commit: Stefan Kangas <stefankangas@gmail.com>
> 
>    ; Prefer HTTPS to HTTP in more links
> ---
> ChangeLog.4                     |  4 ++--
> doc/misc/org.org                |  8 ++++----
> doc/misc/tramp.texi             |  2 +-
> doc/misc/url.texi               | 10 +++++-----
> lisp/ChangeLog.16               |  3 +--
> lisp/emacs-lisp/oclosure.el     |  2 +-
> lisp/erc/erc-nicks.el           |  2 +-
> lisp/net/newst-backend.el       | 12 ++++++------
> lisp/net/newsticker.el          |  4 ++--
> lisp/nxml/nxml-maint.el         |  2 +-
> lisp/obsolete/iswitchb.el       |  2 +-
> lisp/term.el                    |  2 +-
> lisp/textmodes/less-css-mode.el |  2 +-
> lisp/textmodes/remember.el      |  2 +-
> lisp/textmodes/rst.el           |  2 +-
> src/ChangeLog.12                |  2 +-
> src/w32fns.c                    |  4 ++--
> src/w32term.h                   |  2 +-
> 18 files changed, 33 insertions(+), 34 deletions(-)
> 
> diff --git a/ChangeLog.4 b/ChangeLog.4
> index 9d64446d68e..372b03b32b2 100644
> --- a/ChangeLog.4
> +++ b/ChangeLog.4
> @@ -116226,7 +116226,7 @@
> 
>    Do not quote lambda expressions
> 
> -    http://emacs.stackexchange.com/a/3596
> +    https://emacs.stackexchange.com/a/3596
> 
>    Quoting lambda expressions is at best redundant and at worst
>    detrimental; this commit removes all use of the sharp-quote to reduce
> @@ -116960,7 +116960,7 @@
> 
>    This change follows the regexp for require on emacs truck. See line
>    2327 on font-lock.el in the following patch.
> -    http://bzr.savannah.gnu.org/lh/emacs/trunk/revision/111821
> +    https://bzr.savannah.gnu.org/lh/emacs/trunk/revision/111821
> 
> 2013-09-04  John Wiegley  <johnw@newartisans.com>
> 
> diff --git a/doc/misc/org.org b/doc/misc/org.org
> index d8bbcb4d0c5..5562a13a005 100644
> --- a/doc/misc/org.org
> +++ b/doc/misc/org.org
> @@ -3284,7 +3284,7 @@ options:
> 
> | Link Type  | Example                                                  |
> |------------+----------------------------------------------------------|
> -| http       | =http://staff.science.uva.nl/c.dominik/=                 |
> +| http       | =https://staff.science.uva.nl/c.dominik/=                 |
> | https      | =https://orgmode.org/=                                   |
> | doi        | =doi:10.1000/182=                                        |
> | file       | =file:/home/dominik/images/jupiter.jpg=                  |
> @@ -3619,7 +3619,7 @@ replacement text.  Here is an example:
> 
> #+begin_src emacs-lisp
> (setq org-link-abbrev-alist
> -      '(("bugzilla"        . "http://10.1.2.9/bugzilla/show_bug.cgi?id=";)
> +      '(("bugzilla"        . "https://10.1.2.9/bugzilla/show_bug.cgi?id=";)
>         ("Nu Html Checker" . "https://validator.w3.org/nu/?doc=%h";)
>         ("duckduckgo"      . "https://duckduckgo.com/?q=%s";)
>         ("omap"            . 
> "https://nominatim.openstreetmap.org/search?q=%s&polygon=1";)
> @@ -20693,8 +20693,8 @@ adding ~:rewrites~ rules like this:
> 
> #+texinfo: @noindent
> Since =example.com/$= is used as a regular expression, it maps
> -=http://example.com/=, =https://example.com=,
> -=http://www.example.com/= and similar to
> +=https://example.com/=, =https://example.com=,
> +=https://www.example.com/= and similar to
> =/home/user/example/index.php=.
> 
> The ~:rewrites~ rules are searched as a last resort if and only if no
> diff --git a/doc/misc/tramp.texi b/doc/misc/tramp.texi
> index e518330c9b0..291d6600af5 100644
> --- a/doc/misc/tramp.texi
> +++ b/doc/misc/tramp.texi
> @@ -375,7 +375,7 @@ From behind a proxy:
> 
> @example
> @group
> -$ git config --global http.proxy http://user:pwd@@proxy.server.com:8080
> +$ git config --global http.proxy https://user:pwd@@proxy.server.com:8080
> $ git clone https://git.savannah.gnu.org/r/tramp.git
> @end group
> @end example
> diff --git a/doc/misc/url.texi b/doc/misc/url.texi
> index 2f5f994b474..b5a6cb0e6a1 100644
> --- a/doc/misc/url.texi
> +++ b/doc/misc/url.texi
> @@ -896,8 +896,8 @@ Creates a cache file name from @var{url} using MD5 
> hashing.
> This is creates entries with very few cache collisions and is fast.
> @cindex MD5
> @smallexample
> -(url-cache-create-filename-using-md5 "http://www.example.com/foo/bar";)
> -  @result{} 
> "/home/fx/.url/cache/fx/http/com/example/www/b8a35774ad20db71c7c3409a5410e74f"
> +(url-cache-create-filename-using-md5 "https://www.example.com/foo/bar";)
> +  @result{} 
> "/home/fx/.url/cache/fx/https/com/example/www/b8a35774ad20db71c7c3409a5410e74f"
> @end smallexample
> @end defun
> 
> @@ -906,8 +906,8 @@ Creates a cache file name from @var{url} more obviously 
> connected to
> @var{url} than for @code{url-cache-create-filename-using-md5}, but
> more likely to conflict with other files.
> @smallexample
> -(url-cache-create-filename-human-readable "http://www.example.com/foo/bar";)
> -  @result{} "/home/fx/.url/cache/fx/http/com/example/www/foo/bar"
> +(url-cache-create-filename-human-readable "https://www.example.com/foo/bar";)
> +  @result{} "/home/fx/.url/cache/fx/https/com/example/www/foo/bar"
> @end smallexample
> @end defun
> 
> @@ -1159,7 +1159,7 @@ opened by the URL library.
> @c linked with the resolver libraries, it will not be able to get to any
> @c machines off the local network.  This is characterized by being able
> @c to reach someplace with a raw ip number, but not its hostname
> -@c (@url{http://129.79.254.191/} works, but
> +@c (@url{https://129.79.254.191/} works, but
> @c @url{https://www.cs.indiana.edu/} doesn't).  This used to happen on
> @c SunOS4 and Ultrix, but is now probably now rare.  If Emacs can't be
> @c rebuilt linked against the resolver library, it can use the external
> diff --git a/lisp/ChangeLog.16 b/lisp/ChangeLog.16
> index 6dda3703e6d..f7dcda87466 100644
> --- a/lisp/ChangeLog.16
> +++ b/lisp/ChangeLog.16
> @@ -10665,8 +10665,7 @@
>    * textmodes/rst.el: Add comments.
>    (rst-transition, rst-adornment): New faces.
>    (rst-adornment-faces-alist): Make default safe to reevaluate.
> -    Fixes
> -    
> http://sourceforge.net/tracker/?func=detail&atid=422030&aid=3479603&group_id=38414.
> +    Fixes https://sourceforge.net/p/docutils/bugs/180/.
>    Improve customization tags.
>    (rst-define-level-faces): Clarify meaning.
> 
> diff --git a/lisp/emacs-lisp/oclosure.el b/lisp/emacs-lisp/oclosure.el
> index 40f1f54eed0..466822e0e06 100644
> --- a/lisp/emacs-lisp/oclosure.el
> +++ b/lisp/emacs-lisp/oclosure.el
> @@ -50,7 +50,7 @@
> ;; - coercion wrappers, as in "Threesomes, with and without blame"
> ;;   https://dl.acm.org/doi/10.1145/1706299.1706342, or
> ;;   "On the Runtime Complexity of Type-Directed Unboxing"
> -;;   http://sv.c.titech.ac.jp/minamide/papers.html
> +;;   https://sv.c.titech.ac.jp/minamide/papers.html
> ;; - An efficient `negate' operation such that
> ;;   (negate (negate f)) returns just `f' and (negate #'<) returns #'>=.
> ;; - Autoloads (tho currently our bytecode functions (and hence OClosures)
> diff --git a/lisp/erc/erc-nicks.el b/lisp/erc/erc-nicks.el
> index 67f513f8d3e..a7d0b0769f2 100644
> --- a/lisp/erc/erc-nicks.el
> +++ b/lisp/erc/erc-nicks.el
> @@ -61,7 +61,7 @@
> ;; 2007/09 - erc-highlight-nicknames.el
> ;;           Initial release by by André Riemann
> 
> -;; [1] <http://www.github.com/leathekd/erc-hl-nicks>
> +;; [1] <https://www.github.com/leathekd/erc-hl-nicks>
> ;; [2] <https://www.emacswiki.org/emacs/ErcHighlightNicknames>
> 
> ;;; Code:
> diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
> index a68a6bf1a24..31dc8d8e177 100644
> --- a/lisp/net/newst-backend.el
> +++ b/lisp/net/newst-backend.el
> @@ -81,15 +81,15 @@ considered to be running if the newsticker timer list is 
> not empty."
>     ("The Register"
>      "https://www.theregister.co.uk/headlines.rss";)
>     ("slashdot"
> -     "http://rss.slashdot.org/Slashdot/slashdot";
> +     "https://rss.slashdot.org/Slashdot/slashdot";
>      nil
>      3600)                        ;/. will ban you if under 3600 seconds!
>     ("Wired News"
>      "https://www.wired.com/feed/rss";)
>     ("Heise News (german)"
> -     "http://www.heise.de/newsticker/heise.rdf";)
> +     "https://www.heise.de/newsticker/heise.rdf";)
>     ("Tagesschau (german)"
> -     "http://www.tagesschau.de/newsticker.rdf";
> +     "https://www.tagesschau.de/newsticker.rdf";
>      nil
>      1800))
>   "Default URL list in raw form.
> @@ -1168,7 +1168,7 @@ URL 
> `http://www.atompub.org/2005/08/17/draft-ietf-atompub-format-11.html'"
>                       ;; allows for integrating (x)html into the atom
>                       ;; structure but we need the raw html string.
>                       ;; e.g. https://www.heise.de/open/news/news-atom.xml
> -                      ;; http://feeds.feedburner.com/ru_nix_blogs
> +                      ;; https://feeds.feedburner.com/ru_nix_blogs
>                       (or (newsticker--unxml
>                            (car (xml-node-children
>                                  (car (xml-get-children node 'content)))))
> @@ -1302,7 +1302,7 @@ For the RSS 0.92 specification see URL 
> `http://backend.userland.com/rss092'."
> Return value as well as arguments NAME, TIME, and TOPNODE are the
> same as in `newsticker--parse-atom-1.0'.
> 
> -For the RSS 1.0 specification see URL 
> `http://web.resource.org/rss/1.0/spec'."
> +For the RSS 1.0 specification see URL 
> `https://web.resource.org/rss/1.0/spec'."
>   (newsticker--debug-msg "Parsing RSS 1.0 feed %s" name)
>   (let* ((channelnode (car (xml-get-children topnode 'channel)))
>          is-new-feed has-new-items)
> @@ -1361,7 +1361,7 @@ For the RSS 1.0 specification see URL 
> `http://web.resource.org/rss/1.0/spec'."
> Return value as well as arguments NAME, TIME, and TOPNODE are the
> same as in `newsticker--parse-atom-1.0'.
> 
> -For the RSS 2.0 specification see URL 
> `http://blogs.law.harvard.edu/tech/rss'."
> +For the RSS 2.0 specification see URL `https://cyber.harvard.edu/rss/'."
>   (newsticker--debug-msg "Parsing RSS 2.0 feed %s" name)
>   (let* ((channelnode (car (xml-get-children topnode 'channel)))
>          is-new-feed has-new-items)
> diff --git a/lisp/net/newsticker.el b/lisp/net/newsticker.el
> index 938683a12a1..c86174b6d8e 100644
> --- a/lisp/net/newsticker.el
> +++ b/lisp/net/newsticker.el
> @@ -47,9 +47,9 @@
> ;;  * RSS 0.92
> ;;    (see http://backend.userland.com/rss092)
> ;;  * RSS 1.0
> -;;    (see http://purl.org/rss/1.0/spec)
> +;;    (see https://web.resource.org/rss/1.0/spec)
> ;;  * RSS 2.0
> -;;    (see http://blogs.law.harvard.edu/tech/rss)
> +;;    (see https://cyber.harvard.edu/rss/)
> ;; as well as the following Atom formats:
> ;;  * Atom 0.3
> ;;  * Atom 1.0
> diff --git a/lisp/nxml/nxml-maint.el b/lisp/nxml/nxml-maint.el
> index 24b38ed0635..24eb711eb99 100644
> --- a/lisp/nxml/nxml-maint.el
> +++ b/lisp/nxml/nxml-maint.el
> @@ -26,7 +26,7 @@
> 
> ;;; Parsing target repertoire files from ucs-fonts.
> ;; This is for converting the TARGET? files in
> -;; http://www.cl.cam.ac.uk/~mgk25/download/ucs-fonts.tar.gz
> +;; https://www.cl.cam.ac.uk/~mgk25/download/ucs-fonts.tar.gz
> ;; into a glyph set.
> 
> (defun nxml-insert-target-repertoire-glyph-set (file var)
> diff --git a/lisp/obsolete/iswitchb.el b/lisp/obsolete/iswitchb.el
> index 6d316fdf1cc..59e6c0403a2 100644
> --- a/lisp/obsolete/iswitchb.el
> +++ b/lisp/obsolete/iswitchb.el
> @@ -251,7 +251,7 @@
>   :group 'convenience
>   :group 'completion
>   :link '(emacs-commentary-link :tag "Commentary" "iswitchb.el")
> -  :link '(url-link "http://www.anc.ed.ac.uk/~stephen/emacs/";)
> +  :link '(url-link "https://www.anc.ed.ac.uk/~stephen/emacs/";)
>   :link '(emacs-library-link :tag "Lisp File" "iswitchb.el"))
> 
> (defcustom iswitchb-case case-fold-search
> diff --git a/lisp/term.el b/lisp/term.el
> index 73f583ff718..3e7745b94c9 100644
> --- a/lisp/term.el
> +++ b/lisp/term.el
> @@ -2961,7 +2961,7 @@ See `term-prompt-regexp'."
> ;; It emulates (most of the features of) a VT100/ANSI-style terminal.
> 
> ;; References:
> -;; [ctlseqs]: http://invisible-island.net/xterm/ctlseqs/ctlseqs.html
> +;; [ctlseqs]: https://invisible-island.net/xterm/ctlseqs/ctlseqs.html
> ;; [ECMA-48]: 
> https://www.ecma-international.org/publications/standards/Ecma-048.htm
> ;; [vt100]: https://vt100.net/docs/vt100-ug/chapter3.html
> 
> diff --git a/lisp/textmodes/less-css-mode.el b/lisp/textmodes/less-css-mode.el
> index c3905afb4e7..2e4d71fb631 100644
> --- a/lisp/textmodes/less-css-mode.el
> +++ b/lisp/textmodes/less-css-mode.el
> @@ -215,7 +215,7 @@ directory by default."
> ;;;###autoload (add-to-list 'auto-mode-alist '("\\.less\\'" . less-css-mode))
> ;;;###autoload
> (define-derived-mode less-css-mode css-mode "Less"
> -  "Major mode for editing Less files (http://lesscss.org/).
> +  "Major mode for editing Less files (https://lesscss.org/).
> Special commands:
> \\{less-css-mode-map}"
>   (font-lock-add-keywords nil less-css-font-lock-keywords)
> diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
> index 95e18b7d1d5..84a0185f7b5 100644
> --- a/lisp/textmodes/remember.el
> +++ b/lisp/textmodes/remember.el
> @@ -7,7 +7,7 @@
> ;; Created: 29 Mar 1999
> ;; Old-Version: 2.0
> ;; Keywords: data memory todo pim
> -;; URL: http://gna.org/projects/remember-el/
> +;; URL: http://gna.org/projects/remember-el/ [dead link]
> 
> ;; This file is part of GNU Emacs.
> 
> diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
> index 9d68feed0e0..6108e80363c 100644
> --- a/lisp/textmodes/rst.el
> +++ b/lisp/textmodes/rst.el
> @@ -1473,7 +1473,7 @@ for modes derived from Text mode, like Mail mode."
>   :version "21.1")
> 
> ;; FIXME: Default must match suggestion in
> -;;        http://sphinx-doc.org/rest.html#sections for Python documentation.
> +;;        https://sphinx-doc.org/rest.html#sections for Python documentation.
> (defcustom rst-preferred-adornments '((?= over-and-under 1)
>                      (?= simple 0)
>                      (?- simple 0)
> diff --git a/src/ChangeLog.12 b/src/ChangeLog.12
> index 74df9809261..fdb7a2e659b 100644
> --- a/src/ChangeLog.12
> +++ b/src/ChangeLog.12
> @@ -7077,7 +7077,7 @@
> 
>    * .gdbinit: Use "set $dummy = ..." to avoid warnings from GDB 7.5
>    and later about non-assignments with no effect.  See discussion at
> -    http://sourceware.org/ml/gdb-patches/2012-08/msg00518.html for
> +    https://sourceware.org/ml/gdb-patches/2012-08/msg00518.html for
>    details.
> 
> 2012-08-20  Dmitry Antipov  <dmantipov@yandex.ru>
> diff --git a/src/w32fns.c b/src/w32fns.c
> index dcf9a212bdd..07b389df84a 100644
> --- a/src/w32fns.c
> +++ b/src/w32fns.c
> @@ -3852,7 +3852,7 @@ deliver_wm_chars (int do_translate, HWND hwnd, UINT 
> msg, UINT wParam,
> 
>       /* What follows is just heuristics; the correct treatment requires
>     non-destructive ToUnicode():
> -       
> http://search.cpan.org/~ilyaz/UI-KeyboardLayout/lib/UI/KeyboardLayout.pm#Can_an_application_on_Windows_accept_keyboard_events?_Part_IV:_application-specific_modifiers
> +       
> https://metacpan.org/dist/UI-KeyboardLayout/view/lib/UI/KeyboardLayout.pm#Can-an-application-on-Windows-accept-keyboard-events?-Part-IV:-application-specific-modifiers
> 
>     What one needs to find is:
>       * which of the present modifiers AFFECT the resulting char(s)
> @@ -3914,7 +3914,7 @@ deliver_wm_chars (int do_translate, HWND hwnd, UINT 
> msg, UINT wParam,
>     character is the same for AltGr-* (=rAlt-*) and Ctrl-Alt-* (in any
>     combination of handedness).  For description of masks, see
> 
> -       
> http://search.cpan.org/~ilyaz/UI-KeyboardLayout/lib/UI/KeyboardLayout.pm#Keyboard_input_on_Windows,_Part_I:_what_is_the_kernel_doing?
> +       
> https://metacpan.org/dist/UI-KeyboardLayout/view/lib/UI/KeyboardLayout.pm#Keyboard-input-on-Windows,-Part-I:-what-is-the-kernel-doing?
> 
>     By default, Emacs was using these coincidences via the following
>     heuristics: it was treating:
> diff --git a/src/w32term.h b/src/w32term.h
> index 69ef297cbcc..68237bfff1d 100644
> --- a/src/w32term.h
> +++ b/src/w32term.h
> @@ -29,7 +29,7 @@ along with GNU Emacs.  If not, see 
> <https://www.gnu.org/licenses/>.  */
>    calls us.  The ALIGN_STACK attribute forces GCC to emit a preamble
>    code to re-align the stack at function entry.  Further details
>    about this can be found in
> -   http://www.peterstock.co.uk/games/mingw_sse/.  */
> +   https://www.peterstock.co.uk/games/mingw_sse/.  */
> #ifdef __GNUC__
> # if USE_STACK_LISP_OBJECTS && !defined _WIN64 && !defined __x86_64__    \
>   && __GNUC__ + (__GNUC_MINOR__ > 1) >= 5
>