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 2a0b51bd88c2c4a5b438fc72ce248ad552d3ee92..a1c8b327f2673f817da584fd574d34de72a76298 100644 (file)
--- 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 458f93379af50ebb12163d1141669501361a2197..67cfd5fd00a57016b29eaee5583e6933e2bbb548 100644 (file)
--- 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 13a85379970719f2c2e296e4b5466dd109fcd935..4484b95075c6b9f7b3082ad9bb7430cba78740ca 100644 (file)
--- 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.