[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103860: gnus-registry.el (gnus-regis
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103860: gnus-registry.el (gnus-registry-handle-action): More debugging. |
Date: |
Thu, 07 Apr 2011 22:48:21 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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"))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103860: gnus-registry.el (gnus-registry-handle-action): More debugging.,
Katsumi Yamaoka <=