valid lambda.
(gnus-registry-translate-from-alist): Ditto.
* gnus-start.el (gnus-gnus-to-quick-newsrc-format): Bind
print-length to nil.
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.
;; 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)
(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