[gnus git] branch master updated: n0-15-85-ga1835a9 =2= Fix data header reference for the Gnus registry so To and Cc headers are collected correctly. ; Add gnus.el to last commit.

       via  a1835a985c606b6e37bc3115023ef028d0797191 (commit)
       via  f18fa0e9d25eb5add1afeeda2774ecf82c238ab0 (commit)
      from  10eeba90f2bf1c9065ccd88fb1806a82d6bde61c (commit)


- Log -----------------------------------------------------------------
commit a1835a985c606b6e37bc3115023ef028d0797191
Author: Teodor Zlatanov <[email protected]>
Date:   Thu Apr 21 15:20:25 2011 -0500

    Fix data header reference for the Gnus registry so To and Cc headers are collected correctly.
    
    * gnus-registry.el (gnus-registry-action): Fix data-header reference
    to use the extra headers.  Explain in package commentary how to add To
    and Cc headers to the gnus-extra-headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c087cf..aa7c4ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,13 +1,14 @@
-2011-04-21  Teodor Zlatanov  <[email protected]>
-
-	* gnus-registry.el (gnus-registry-ignored-groups): Remove defcustom.
-	Explain why in comments.
+2011-04-21  Teodor Zlatanov  <[email protected]>
 
 	* gnus.el (gnus-registry-ignored-groups): Provide default in gnus.el,
 	not gnus-registry.el.
 
-	* gnus-registry.el (gnus-registry-ignored-groups): Adjust defaults to
-	match the parameter.
+	* gnus-registry.el (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
+	the gnus-extra-headers.
+	(gnus-registry-ignored-groups): Adjust defaults to match the parameter.
 	(gnus-registry-ignore-group-p): Adjust to take either a group/topic
 	parameter list or a string list in `gnus-registry-ignored-groups'.  Fix
 	logic error.
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 306f29d..68c6e0a 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -31,7 +31,16 @@
 ;; gnus-registry.el intercepts article respooling, moving, deleting,
 ;; and copying for all backends.  If it doesn't work correctly for
 ;; you, submit a bug report and I'll be glad to fix it.  It needs
-;; documentation in the manual (also on my to-do list).
+;; better documentation in the manual (also on my to-do list).
+
+;; 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:
+
+;; ;;; you may also want Gcc Newsgroups Keywords X-Face
+;; (add-to-list 'gnus-extra-headers 'To)
+;; (add-to-list 'gnus-extra-headers 'Cc)
+;; (setq nnmail-extra-headers gnus-extra-headers)
 
 ;; Put this in your startup file (~/.gnus.el for instance) or use Customize:
 
@@ -303,9 +312,10 @@ This is not required after changing `gnus-registry-cache-file'."
 (defun gnus-registry-action (action data-header from &optional to method)
   (let* ((id (mail-header-id data-header))
          (subject (mail-header-subject data-header))
+         (extra (mail-header-extra data-header))
          (recipients (gnus-registry-sort-addresses
-		      (or (cdr (assq "Cc" data-header)) "")
-		      (or (cdr (assq "To" data-header)) "")))
+                      (or (cdr-safe (assq 'Cc extra)) "")
+                      (or (cdr-safe (assq 'To extra)) "")))
          (sender (nth 0 (gnus-registry-extract-addresses
                          (mail-header-from data-header))))
          (from (gnus-group-guess-full-name-from-command-method from))

commit f18fa0e9d25eb5add1afeeda2774ecf82c238ab0
Author: Ted Zlatanov <[email protected]>
Date:   Thu Apr 21 14:59:25 2011 -0500

    Add gnus.el to last commit.
    
    * gnus.el (gnus-registry-ignored-groups): Provide default in gnus.el,
    not gnus-registry.el.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc0e776..7c087cf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,4 @@
-2011-04-21  Teodor Zlatanov  <[email protected]>
+2011-04-21  Teodor Zlatanov  <[email protected]>
 
 	* gnus-registry.el (gnus-registry-ignored-groups): Remove defcustom.
 	Explain why in comments.
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 03a9bd7..c30eaba 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1874,7 +1874,10 @@ total number of articles in the group.")
  :function-document
  "Whether this group should be ignored by the registry."
  :variable gnus-registry-ignored-groups
- :variable-default nil
+ :variable-default (mapcar
+                    (lambda (g) (list g t))
+                    '("delayed$" "drafts$" "queue$" "INBOX$"
+                      "^nnmairix:" "archive"))
  :variable-document
  "*Groups in which the registry should be turned off."
  :variable-group gnus-registry

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog        |   11 ++++++-----
 lisp/gnus-registry.el |   32 +++++++++++++++++++++-----------
 lisp/gnus.el          |    5 ++++-
 3 files changed, 31 insertions(+), 17 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project