From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 19 Sep 2020 19:16:35 +0000 (+0200)
Subject: Add a new variable 'gnus-global-groups'
X-Git-Tag: emacs-28.0.90~5998
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eda48b6fed851a14e183c38b737c5bc3992862c4;p=emacs.git

Add a new variable 'gnus-global-groups'

* doc/misc/gnus.texi (HTML): Document it.

* lisp/gnus/gnus-art.el (gnus-global-groups): New variable.
(gnus-block-private-groups): Use it.
---

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 2a0b51bd88c..a1c8b327f26 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -11979,6 +11979,11 @@ anything that isn't a newsgroup.  This means that no external images
 will be fetched as a result of reading mail, so that nobody can use
 web bugs (and the like) to track whether you've read email.
 
+@vindex gnus-global-groups
+If you have specific private groups that you want to have treated as
+if they were public groups, you can add the name of that group to the
+@code{gnus-global-groups} list.
+
 Also @pxref{Misc Article} for @code{gnus-inhibit-images}.
 
 @item gnus-html-cache-directory
diff --git a/etc/NEWS b/etc/NEWS
index 458f93379af..67cfd5fd00a 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -363,6 +363,14 @@ tags to be considered as well.
 
 ** Gnus
 
++++
+*** New variable 'gnus-global-groups'.
+Gnus handles private groups differently from public (i.e., NNTP-like)
+groups.  Most importantly, Gnus doesn't download external images from
+mail-like groups.  This can be overridden by putting group names in
+'gnus-global-groups': Any group present in that list will be treated
+like a public group.
+
 +++
 *** New scoring types for the Date header.
 You can now score based on the relative age of an article with the new
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 13a85379970..4484b95075c 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -534,6 +534,13 @@ that the symbol of the saver function, which is specified by
   :group 'gnus-article-saving
   :type 'regexp)
 
+(defcustom gnus-global-groups nil
+  "Groups that should be considered like \"news\" groups.
+This means that images will be automatically loaded, for instance."
+  :type '(repeat string)
+  :version "28.1"
+  :group 'gnus-article)
+
 ;; Note that "Rmail format" is mbox since Emacs 23, but Babyl before.
 (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
   "A function to save articles in your favorite format.
@@ -7138,7 +7145,8 @@ If given a prefix, show the hidden text instead."
   "Allows images in newsgroups to be shown, blocks images in all
 other groups."
   (if (or (gnus-news-group-p group)
-	  (gnus-member-of-valid 'global group))
+	  (gnus-member-of-valid 'global group)
+	  (member group gnus-global-groups))
       ;; Block nothing in news groups.
       nil
     ;; Block everything anywhere else.