[gnus git] branch master updated: n0-13-60-g2bd6537 =1= gnus-art: allow to specify list-identifier as agroup-parameter

       via  2bd6537597f51762a4b04f81c70d8f2be5dcb690 (commit)
      from  167b4031f3e5d2b08c4f49e62ecba8f45164b3c1 (commit)


- Log -----------------------------------------------------------------
commit 2bd6537597f51762a4b04f81c70d8f2be5dcb690
Author: Julien Danjou <[email protected]>
Date:   Tue Mar 1 12:22:45 2011 +0100

    gnus-art: allow to specify list-identifier as agroup-parameter
    
    Signed-off-by: Julien Danjou <[email protected]>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1632895..80d601b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-03-01  Julien Danjou  <[email protected]>
+
+	* gnus-art.el (list-identifier): Add list-identifier as a parameter
+	group.
+	(article-hide-list-identifiers): Use list-identifier group parameter.
+
 2011-02-28  Julien Danjou  <[email protected]>
 
 	* sieve.el (sieve-buffer-script-name): New local variable to store
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 250ebaf..7469c44 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1253,6 +1253,24 @@ predicate.  See Info node `(gnus)Customizing Articles'."
   :link '(custom-manual "(gnus)Customizing Articles")
   :type gnus-article-treat-custom)
 
+(gnus-define-group-parameter
+ list-identifier
+ :variable-document
+ "Alist of regexps and correspondent identifiers."
+ :variable-group gnus-article-washing
+ :parameter-type
+ '(choice :tag "Identifier"
+	  :value nil
+	  (symbol :tag "Item in `gnus-list-identifiers'" none)
+	  regexp
+	  (const :tag "None" nil))
+ :parameter-document
+ "If non-nil, specify how to remove `identifiers' from articles' subject.
+
+Any symbol is used to look up a regular expression to match the
+banner in `gnus-list-identifiers'.  A string is used as a regular
+expression to match the identifier directly.")
+
 (make-obsolete-variable 'gnus-treat-strip-pgp nil
 			"Gnus 5.10 (Emacs 22.1)")
 
@@ -3056,9 +3074,10 @@ images if any to the browser, and deletes them when exiting the group
 The `gnus-list-identifiers' variable specifies what to do."
   (interactive)
   (let ((inhibit-point-motion-hooks t)
-	(regexp (if (consp gnus-list-identifiers)
+        (regexp (or (gnus-parameter-list-identifier gnus-newsgroup-name)
+                    (if (consp gnus-list-identifiers)
 		    (mapconcat 'identity gnus-list-identifiers " *\\|")
-		  gnus-list-identifiers))
+                      gnus-list-identifiers)))
 	(inhibit-read-only t))
     (when regexp
       (save-excursion

-----------------------------------------------------------------------
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   |    6 ++++++
 lisp/gnus-art.el |   27 +++++++++++++++++++++++----
 2 files changed, 29 insertions(+), 4 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