master eda48b6: Add a new variable 'gnus-global-groups'

[Lars Ingebrigtsen]

branch: master
commit eda48b6fed851a14e183c38b737c5bc3992862c4
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 doc/misc/gnus.texi    |  5 +++++
 etc/NEWS              |  8 ++++++++
 lisp/gnus/gnus-art.el | 10 +++++++++-
 3 files changed, 22 insertions(+), 1 deletion(-)

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 2a0b51b..a1c8b32 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 458f933..67cfd5f 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -364,6 +364,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
 '<' and '>' date scoring types.
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 13a8537..4484b95 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.