summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-registry.el
diff options
context:
space:
mode:
authorGnus developers <ding@gnus.org>2011-04-07 22:48:21 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2011-04-07 22:48:21 +0000
commit4523dc7f800db03f6bd86c84772dbe5ac39db851 (patch)
tree6190c95472117165ac99b8e6483600dbd5b97a37 /lisp/gnus/gnus-registry.el
parent5f64f7bd363dc97be5e0d198aad52045469faa8d (diff)
gnus-registry.el (gnus-registry-handle-action): More debugging.
gnus-start.el (gnus-gnus-to-newsrc-format): Add a way to run interactively so the newsrc file can contain foreign groups too. Useful for debugging but not much for users. registry.el (registry-usage-test): Only do `registry-lookup-breaks-before-lexbind' testing for Emacs24 with lexical binding.
Diffstat (limited to 'lisp/gnus/gnus-registry.el')
-rw-r--r--lisp/gnus/gnus-registry.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 5145f01d635..9824fc26f16 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -321,6 +321,9 @@ This is not required after changing `gnus-registry-cache-file'."
(gnus-registry-handle-action id nil to subject sender)))
(defun gnus-registry-handle-action (id from to subject sender)
+ (gnus-message
+ 10
+ "gnus-registry-handle-action %S" (list id from to subject sender))
(let ((db gnus-registry-db)
;; safe if not found
(entry (gnus-registry-get-or-make-entry id)))