[Emacs-diffs] /srv/bzr/emacs/trunk r103468: gnus-art.el (list-identifier): Add list-identifier as a parameter group.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103468
author: Julien Danjou <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2011-03-01 14:32:24 +0000
message:
  gnus-art.el (list-identifier): Add list-identifier as a parameter group.
   (article-hide-list-identifiers): Use list-identifier group parameter.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-03-01 12:20:17 +0000
+++ b/lisp/gnus/ChangeLog       2011-03-01 14:32:24 +0000
@@ -1,3 +1,9 @@
+2011-03-01  Julien Danjou  <address@hidden>
+
+       * 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  <address@hidden>
 
        * sieve.el (sieve-buffer-script-name): New local variable to store

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2011-03-01 12:20:17 +0000
+++ b/lisp/gnus/gnus-art.el     2011-03-01 14:32:24 +0000
@@ -1253,6 +1253,24 @@
   :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,10 +3074,11 @@
 The `gnus-list-identifiers' variable specifies what to do."
   (interactive)
   (let ((inhibit-point-motion-hooks t)
-       (regexp (if (consp gnus-list-identifiers)
-                   (mapconcat 'identity gnus-list-identifiers " *\\|")
-                 gnus-list-identifiers))
-       (inhibit-read-only t))
+        (regexp (or (gnus-parameter-list-identifier gnus-newsgroup-name)
+                    (if (consp gnus-list-identifiers)
+                        (mapconcat 'identity gnus-list-identifiers " *\\|")
+                      gnus-list-identifiers)))
+        (inhibit-read-only t))
     (when regexp
       (save-excursion
        (save-restriction