[Emacs-diffs] /srv/bzr/emacs/trunk r103860: gnus-registry.el (gnus-registry-handle-action): More debugging.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103860
author: Gnus developers <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2011-04-07 22:48:21 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-registry.el
  lisp/gnus/gnus-start.el
  lisp/gnus/registry.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-04-06 22:08:31 +0000
+++ b/lisp/gnus/ChangeLog       2011-04-07 22:48:21 +0000
@@ -1,3 +1,17 @@
+2011-04-07  Teodor Zlatanov  <address@hidden>
+
+       * 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.
+
+2011-04-07  David Engster  <address@hidden>
+
+       * registry.el (registry-usage-test): Only do
+       `registry-lookup-breaks-before-lexbind' testing for Emacs24 with
+       lexical binding.
+
 2011-04-06  David Engster  <address@hidden>
 
        * registry.el, gnus-registry.el: Use `ignore-errors' instead of third

=== modified file 'lisp/gnus/gnus-registry.el'
--- a/lisp/gnus/gnus-registry.el        2011-04-06 22:08:31 +0000
+++ b/lisp/gnus/gnus-registry.el        2011-04-07 22:48:21 +0000
@@ -321,6 +321,9 @@
     (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)))

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2011-04-04 14:03:08 +0000
+++ b/lisp/gnus/gnus-start.el   2011-04-07 22:48:21 +0000
@@ -2873,7 +2873,8 @@
       (pop list))
     (nreverse olist)))
 
-(defun gnus-gnus-to-newsrc-format ()
+(defun gnus-gnus-to-newsrc-format (&optional foreign-ok)
+  (interactive (list (gnus-y-or-n-p "write foreign groups too? ")))
   ;; Generate and save the .newsrc file.
   (with-current-buffer (create-file-buffer gnus-current-startup-file)
     (let ((newsrc (cdr gnus-newsrc-alist))
@@ -2895,7 +2896,8 @@
        ;; Don't write foreign groups to .newsrc.
        (when (or (null (setq method (gnus-info-method info)))
                  (equal method "native")
-                 (inline (gnus-server-equal method gnus-select-method)))
+                 (inline (gnus-server-equal method gnus-select-method))
+                  foreign-ok)
          (insert (gnus-info-group info)
                  (if (> (gnus-info-level info) gnus-level-subscribed)
                      "!" ":"))

=== modified file 'lisp/gnus/registry.el'
--- a/lisp/gnus/registry.el     2011-04-06 22:08:31 +0000
+++ b/lisp/gnus/registry.el     2011-04-07 22:48:21 +0000
@@ -357,12 +357,13 @@
     (should (= 58 (caadr (registry-lookup db '(1 58 99)))))
     (message "Grouped individual lookup")
     (should (= 3 (length (registry-lookup db '(1 58 99)))))
-    (message "Individual lookup (breaks before lexbind)")
-    (should (= 58
-               (caadr (registry-lookup-breaks-before-lexbind db '(1 58 99)))))
-    (message "Grouped individual lookup (breaks before lexbind)")
-    (should (= 3
-               (length (registry-lookup-breaks-before-lexbind db '(1 58 99)))))
+    (when (boundp 'lexical-binding)
+      (message "Individual lookup (breaks before lexbind)")
+      (should (= 58
+                (caadr (registry-lookup-breaks-before-lexbind db '(1 58 99)))))
+      (message "Grouped individual lookup (breaks before lexbind)")
+      (should (= 3
+                (length (registry-lookup-breaks-before-lexbind db '(1 58 
99))))))
     (message "Search")
     (should (= n (length (registry-search db :all t))))
     (should (= n (length (registry-search db :member '((sender "me"))))))