[gnus git] branch master updated: n0-15-51-ge564d59 =2= * gnus-registry.el (gnus-registry-handle-action): More debugging. ; Add debugging option to `gnus-gnus-to-newsrc-format'.

       via  e564d590a88bc90fc3c371ae36d45ed1f78db809 (commit)
       via  20835e5d1194a466642ce22bcf847dc77211749d (commit)
      from  854af5310dde4fed6a522a59d1d7816190f42142 (commit)


- Log -----------------------------------------------------------------
commit e564d590a88bc90fc3c371ae36d45ed1f78db809
Author: Ted Zlatanov <[email protected]>
Date:   Thu Apr 7 16:49:22 2011 -0500

    * gnus-registry.el (gnus-registry-handle-action): More debugging.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a80608a..78a0ec1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-04-07  Teodor Zlatanov  <[email protected]>
 
+	* 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.
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 5145f01..9824fc2 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/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)))

commit 20835e5d1194a466642ce22bcf847dc77211749d
Author: Ted Zlatanov <[email protected]>
Date:   Thu Apr 7 16:48:36 2011 -0500

    Add debugging option to `gnus-gnus-to-newsrc-format'.
    
    * 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff1b3b7..a80608a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-04-07  Teodor Zlatanov  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* registry.el (registry-usage-test): Only do
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index fa582c5..d9d218c 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2873,7 +2873,8 @@ If FORCE is non-nil, the .newsrc file is read."
       (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 @@ If FORCE is non-nil, the .newsrc file is read."
 	;; 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)
 		      "!" ":"))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog        |    8 ++++++++
 lisp/gnus-registry.el |    3 +++
 lisp/gnus-start.el    |    6 ++++--
 3 files changed, 15 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project