* gnus-registry.el (gnus-registry-translate-to-alist): Make a

valid lambda.
(gnus-registry-translate-from-alist): Ditto.

* gnus-start.el (gnus-gnus-to-quick-newsrc-format): Bind
print-length to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff90dca..588ca2b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2003-03-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-registry.el (gnus-registry-translate-to-alist): Make a
+       valid lambda.
+       (gnus-registry-translate-from-alist): Ditto.
+
        * gnus-start.el (gnus-gnus-to-quick-newsrc-format): Bind
        print-length to nil.
 

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 5bed64a..630b555 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -52,10 +52,10 @@
     ;; alias puthash is missing from Emacs 20 cl-extra.el
     (defalias 'puthash 'cl-puthash)))
 
-(defun gnus-registry-translate-to-alist
+(defun gnus-registry-translate-to-alist ()
   (setq gnus-registry-alist (hashtable-to-alist gnus-registry-hashtb)))
 
-(defun gnus-registry-translate-from-alist
+(defun gnus-registry-translate-from-alist ()
   (setq gnus-registry-hashtb (alist-to-hashtable gnus-registry-alist)))
 
 (defun alist-to-hashtable (alist)

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index cdca519..0346489 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2615,10 +2615,9 @@ If FORCE is non-nil, the .newsrc file is read."
 
               (unwind-protect
                   (progn
-                    (gnus-with-output-to-file
-                     working-file
-                     (gnus-gnus-to-quick-newsrc-format)
-                     (gnus-run-hooks 'gnus-save-quick-newsrc-hook))
+                    (gnus-with-output-to-file working-file
+                     (gnus-gnus-to-quick-newsrc-format)
+                     (gnus-run-hooks 'gnus-save-quick-newsrc-hook))
 
                     ;; These bindings will mislead the current buffer
                     ;; into thinking that it is visiting the startup