gnus-sum.el (gnus-extra-headers): Add Keywords, Cc, and Gcc to default.

gnus-registry.el: Mention in comments how to modify `gnus-extra-headers' for proper recipient tracking and that it may already have To and Cc recently, which it does as of this commit.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 601f1823d9617316c37dc6a8b036cf55a02aaf93..57182504331cf4ba02b3064cb51f1f5436becb65 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,9 +1,15 @@
 2011-04-21  Teodor Zlatanov  <tzz@lifelogs.com>
 
+       * gnus-sum.el (gnus-extra-headers): Add Keywords, Cc, and Gcc to
+       default.
+
        * gnus.el (gnus-registry-ignored-groups): Provide default in gnus.el,
        not gnus-registry.el.
 
-       * gnus-registry.el (gnus-registry-ignored-groups): Remove defcustom.
+       * gnus-registry.el: Mention in comments how to modify
+       `gnus-extra-headers' for proper recipient tracking and that it may
+       already have To and Cc recently, which it does as of this commit.
+       (gnus-registry-ignored-groups): Remove defcustom.
        Explain why in comments.
        (gnus-registry-action): Fix data-header reference to use the extra
        headers.  Explain in package commentary how to add To and Cc headers to

diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 68c6e0a2678246781ee1171ca8fb0d2aabdbdf63..f0b1f18654180210874efdb976b76e8af408dde9 100644 (file)
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -35,7 +35,8 @@
 
 ;; If you want to track recipients (and you should to make the
 ;; gnus-registry splitting work better), you need the To and Cc
-;; headers collected by Gnus:
+;; headers collected by Gnus.  Note that in more recent Gnus versions
+;; this is already the case: look at `gnus-extra-headers' to be sure.
 
 ;; ;;; you may also want Gcc Newsgroups Keywords X-Face
 ;; (add-to-list 'gnus-extra-headers 'To)

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index d023bc5bb63eff46243fbeaad6bec0807160d563..b6a3860a81f774fe63b816b402753be075462782 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -1128,7 +1128,7 @@ which it may alter in any way."
   'mail-decode-encoded-address-string
   "Function used to decode addresses with encoded words.")
 
-(defcustom gnus-extra-headers '(To Newsgroups)
+(defcustom gnus-extra-headers '(To Cc Keywords Gcc Newsgroups)
   "*Extra headers to parse."
   :version "21.1"
   :group 'gnus-summary