[Emacs-diffs] /srv/bzr/emacs/trunk r103969: gnus-sum.el (gnus-extra-headers): Add Keywords, Cc, and Gcc to default.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103969
author: Teodor Zlatanov <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2011-04-22 00:37:01 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-registry.el
  lisp/gnus/gnus-sum.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-04-21 22:06:12 +0000
+++ b/lisp/gnus/ChangeLog       2011-04-22 00:37:01 +0000
@@ -1,9 +1,15 @@
 2011-04-21  Teodor Zlatanov  <address@hidden>
 
+       * 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

=== modified file 'lisp/gnus/gnus-registry.el'
--- a/lisp/gnus/gnus-registry.el        2011-04-21 22:06:12 +0000
+++ b/lisp/gnus/gnus-registry.el        2011-04-22 00:37:01 +0000
@@ -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)

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2011-04-12 22:18:02 +0000
+++ b/lisp/gnus/gnus-sum.el     2011-04-22 00:37:01 +0000
@@ -1128,7 +1128,7 @@
   '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