[gnus git] branch master updated: m0-11-136-gc5385ba =1= gnus-registry.el: Tweak recent gnus-registry.el changes

       via  c5385bacef314481116b4178e3f759a2da9aa8e9 (commit)
      from  a09b860fb44d4af2c7941de9c5bdedc0e5ac9eb7 (commit)


- Log -----------------------------------------------------------------
commit c5385bacef314481116b4178e3f759a2da9aa8e9
Author: Glenn Morris <[email protected]>
Date:   Fri Jan 30 09:05:39 2015 +0000

    gnus-registry.el: Tweak recent gnus-registry.el changes
    
    Ref: http://lists.gnu.org/archive/html/emacs-devel/2014-12/msg01748.html

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df8b88f..a9a89c4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2015-01-30  Glenn Morris  <[email protected]>
+
+	* gnus-registry.el (gnus-registry-max-pruned-entries)
+	(gnus-registry-prune-factor, gnus-registry-default-sort-function):
+	Fix :version.
+	(gnus-registry-default-sort-function): Improve :type.
+
 2015-01-29  Lars Ingebrigtsen  <[email protected]>
 
 	* nnimap.el (nnimap-request-group): Allow running this function on
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 9cfca12..2017ea2 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -176,7 +176,8 @@ nnmairix groups are specifically excluded because they are ephemeral."
 (make-obsolete-variable 'gnus-registry-max-track-groups nil "23.4")
 (make-obsolete-variable 'gnus-registry-entry-caching nil "23.4")
 (make-obsolete-variable 'gnus-registry-trim-articles-without-groups nil "23.4")
-(make-obsolete-variable 'gnus-registry-max-pruned-entries nil "24.4")
+;; FIXME it was simply deleted.
+(make-obsolete-variable 'gnus-registry-max-pruned-entries nil "25.1")
 
 (defcustom gnus-registry-track-extra '(subject sender recipient)
   "Whether the registry should track extra data about a message.
@@ -253,21 +254,18 @@ exactly how much less.  For example, given a maximum size of
 cut the registry back to \(- 50000 \(* 50000 0.1\)\) -> 45000
 entries.  The pruning process is constrained by the presence of
 \"precious\" entries."
-  :version "24.4"
+  :version "25.1"
   :group 'gnus-registry
   :type 'float)
 
 (defcustom gnus-registry-default-sort-function
   #'gnus-registry-sort-by-creation-time
   "Sort function to use when pruning the registry.
-
-Entries which sort to the front of the list will be pruned
-first.
-
+Entries that sort to the front of the list are pruned first.
 This can slow pruning down.  Set to nil to perform no sorting."
-  :version "24.4"
+  :version "25.1"
   :group 'gnus-registry
-  :type 'symbol)
+  :type '(choice (const :tag "No sorting" nil) function))
 
 (defun gnus-registry-sort-by-creation-time (l r)
   "Sort older entries to front of list."

-----------------------------------------------------------------------
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        |    7 +++++++
 lisp/gnus-registry.el |   14 ++++++--------
 2 files changed, 13 insertions(+), 8 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