Prefer HTTPS to HTTP for Google Groups

* lisp/gnus/nnweb.el (nnweb-type-definition): Prefer HTTPS to HTTP
when accessing Google Groups.

diff --git a/lisp/gnus/nnweb.el b/lisp/gnus/nnweb.el
index d3bf138edeba48f4ec36b0d5a2ff212012c8b5cc..779ec9116826c43fddd661fe739fe0c813d83857 100644 (file)
--- a/lisp/gnus/nnweb.el
+++ b/lisp/gnus/nnweb.el
@@ -46,24 +46,24 @@ Valid types include `google', `dejanews', and `gmane'.")
 
 (defvar nnweb-type-definition
   '((google
-     (id . "http://www.google.com/groups?as_umsgid=%s&hl=en&dmode=source")
-     (result . "http://groups.google.com/group/%s/msg/%s?dmode=source")
+     (id . "https://www.google.com/groups?as_umsgid=%s&hl=en&dmode=source")
+     (result . "https://groups.google.com/group/%s/msg/%s?dmode=source")
      (article . nnweb-google-wash-article)
      (reference . identity)
      (map . nnweb-google-create-mapping)
      (search . nnweb-google-search)
-     (address . "http://groups.google.com/groups")
-     (base    . "http://groups.google.com")
+     (address . "https://groups.google.com/groups")
+     (base    . "https://groups.google.com")
      (identifier . nnweb-google-identity))
     (dejanews ;; alias of google
-     (id . "http://www.google.com/groups?as_umsgid=%s&hl=en&dmode=source")
-     (result . "http://groups.google.com/group/%s/msg/%s?dmode=source")
+     (id . "https://www.google.com/groups?as_umsgid=%s&hl=en&dmode=source")
+     (result . "https://groups.google.com/group/%s/msg/%s?dmode=source")
      (article . nnweb-google-wash-article)
      (reference . identity)
      (map . nnweb-google-create-mapping)
      (search . nnweb-google-search)
-     (address . "http://groups.google.com/groups")
-     (base    . "http://groups.google.com")
+     (address . "https://groups.google.com/groups")
+     (base    . "https://groups.google.com")
      (identifier . nnweb-google-identity))
     (gmane
      (article . nnweb-gmane-wash-article)