1 |
;;; gnus-registry.el --- article registry for Gnus |
;;; gnus-registry.el --- article registry for Gnus |
2 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
3 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Ted Zlatanov <tzz@lifelogs.com> |
;; Author: Ted Zlatanov <tzz@lifelogs.com> |
128 |
"Maximum number of entries in the registry, nil for unlimited." |
"Maximum number of entries in the registry, nil for unlimited." |
129 |
:group 'gnus-registry |
:group 'gnus-registry |
130 |
:type '(radio (const :format "Unlimited " nil) |
:type '(radio (const :format "Unlimited " nil) |
131 |
(integer :format "Maximum number: %v\n" :size 0))) |
(integer :format "Maximum number: %v"))) |
132 |
|
|
133 |
;; Function(s) missing in Emacs 20 |
;; Function(s) missing in Emacs 20 |
134 |
(when (memq nil (mapcar 'fboundp '(puthash))) |
(when (memq nil (mapcar 'fboundp '(puthash))) |