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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-04-07  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * 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  <dengste@eml.cc>
 
        * registry.el (registry-usage-test): Only do

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index fa582c5..d9d218c 100644 (file)
--- 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)
                      "!" ":"))