[gnus git] branch master updated: m0-7-176-g9e86c9e =2= Allow using functions as treatment predicates. ; Clean up newsrc cleanup

       via  9e86c9ef18af408e53c582bd487fdbd0fb819645 (commit)
       via  fb7cd285c6066c1b237a77f00ce2e3d0a5788594 (commit)
      from  38b1aab026243fce05b01c8f2894d5563806e246 (commit)


- Log -----------------------------------------------------------------
commit 9e86c9ef18af408e53c582bd487fdbd0fb819645
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Fri Jul 19 16:01:28 2013 +0200

    Allow using functions as treatment predicates.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba82929..413f9bd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-19  Geoff Kuenning  <[email protected]>  (tiny change)
+
+	* gnus-art.el (gnus-treat-predicate): Allow functions as predicates
+	(bug#13384).
+
 2013-07-18  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* gnus-start.el (gnus-clean-old-newsrc): Remove the newsrc cleanups
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 181e64a..aa4b286 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -8420,6 +8420,8 @@ For example:
 	(not (gnus-treat-predicate (car val))))
        ((eq pred 'typep)
 	(equal (car val) gnus-treat-type))
+       ((functionp pred)
+	(funcall pred))
        (t
 	(error "%S is not a valid predicate" pred)))))
    ((eq val t)
diff --git a/texi/ChangeLog b/texi/ChangeLog
index 370d09a..25c0ec8 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+2013-07-19  Geoff Kuenning  <[email protected]>  (tiny change)
+
+	* gnus.texi (Customizing Articles): Document function predicates.
+
 2013-07-08  Tassilo Horn  <[email protected]>
 
 	* gnus.texi (lines): Correct description of
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 7e6802d..85e9f95 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -11858,6 +11858,11 @@ predicate.  The following predicates are recognized: @code{or},
     (typep "text/x-vcard"))
 @end lisp
 
+@item
+A function: the function is called with no arguments and should return
+@code{nil} or non-@code{nil}.  The current article is available in the
+buffer named by @code{gnus-article-buffer}.
+
 @end enumerate
 
 You may have noticed that the word @dfn{part} is used here.  This refers

commit fb7cd285c6066c1b237a77f00ce2e3d0a5788594
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Thu Jul 18 15:30:25 2013 +0200

    Clean up newsrc cleanup
    
    * gnus-start.el (gnus-clean-old-newsrc): Remove the newsrc cleanups
    that were only relevant in a development version a long time ago.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db10d01..ba82929 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-18  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* gnus-start.el (gnus-clean-old-newsrc): Remove the newsrc cleanups
+	that were only relevant in a development version a long time ago.
+
 2013-07-18  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-art.el (gnus-shr-put-image): Make it work as well for shr.el's
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 9480380..05cf290 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2305,24 +2305,8 @@ If FORCE is non-nil, the .newsrc file is read."
       (gnus-clean-old-newsrc))))
 
 (defun gnus-clean-old-newsrc (&optional force)
-  (when gnus-newsrc-file-version
-    ;; Remove totally bogus `unexists' entries.  The name is
-    ;; `unexist'.
-    (dolist (info (cdr gnus-newsrc-alist))
-      (let ((exist (assoc 'unexists (gnus-info-marks info))))
-	(when exist
-	  (gnus-info-set-marks
-	   info (delete exist (gnus-info-marks info))))))
-    (when (or force
-	      (not (string= gnus-newsrc-file-version gnus-version)))
-      (message (concat "Removing unexist marks because newsrc "
-		       "version does not match Gnus version."))
-      ;; Remove old `exist' marks from old nnimap groups.
-      (dolist (info (cdr gnus-newsrc-alist))
-	(let ((exist (assoc 'unexist (gnus-info-marks info))))
-	  (when exist
-	    (gnus-info-set-marks
-	     info (delete exist (gnus-info-marks info)))))))))
+  ;; Currently no cleanups.
+  )
 
 (defun gnus-convert-old-newsrc ()
   "Convert old newsrc formats into the current format, if needed."

-----------------------------------------------------------------------
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     |   10 ++++++++++
 lisp/gnus-art.el   |    2 ++
 lisp/gnus-start.el |   20 ++------------------
 texi/ChangeLog     |    4 ++++
 texi/gnus.texi     |    5 +++++
 5 files changed, 23 insertions(+), 18 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