diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-01-30 00:08:40 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-01-30 00:08:40 -0800 |
| commit | c9d238316c6a4bb16a89de0d8babf782d77c4856 (patch) | |
| tree | 8b69a53e410a4e10111055ec476ae430941113a4 /lisp | |
| parent | 041d53a4a67e67e3e650dd509695cc35a8d90a30 (diff) | |
| download | emacs-c9d238316c6a4bb16a89de0d8babf782d77c4856.tar.gz | |
Tweak recent gnus-registry.el changes
Ref: http://lists.gnu.org/archive/html/emacs-devel/2014-12/msg01748.html
* lisp/gnus/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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/gnus/gnus-registry.el | 14 |
2 files changed, 13 insertions, 8 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 64608d3bda0..76683310b3e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,10 @@ +2015-01-30 Glenn Morris <rgm@gnu.org> + + * 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 <larsi@gnus.org> * nnimap.el (nnimap-request-group): Allow running this function on diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el index 9cfca1290c5..2017ea2f826 100644 --- a/lisp/gnus/gnus-registry.el +++ b/lisp/gnus/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." |