? autoloading-registry-and-spam.patch
Index: gnus-registry.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-registry.el,v
retrieving revision 6.33
diff -u -r6.33 gnus-registry.el
--- gnus-registry.el	8 Sep 2003 18:25:57 -0000	6.33
+++ gnus-registry.el	9 Oct 2003 18:00:31 -0000
@@ -569,6 +569,14 @@
   (setq gnus-registry-hashtb (alist-to-hashtable gnus-registry-alist))
   (setq gnus-registry-dirty t))
 
+;;;###autoload
+(defun gnus-registry-initialize ()
+  (interactive)
+  (setq gnus-registry-install t)
+  (gnus-registry-install-hooks)
+  (gnus-registry-read))
+
+;;;###autoload
 (defun gnus-registry-install-hooks ()
   "Install the registry hooks."
   (interactive)
Index: spam.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/spam.el,v
retrieving revision 6.116
diff -u -r6.116 spam.el
--- spam.el	3 Oct 2003 18:58:33 -0000	6.116
+++ spam.el	9 Oct 2003 18:00:32 -0000
@@ -370,13 +370,6 @@
   "Msx" gnus-summary-mark-as-spam
   "\M-d" gnus-summary-mark-as-spam)
 
-;;; How to highlight a spam summary line.
-
-;; TODO: How do we redo this every time spam-face is customized?
-
-(push '((eq mark gnus-spam-mark) . spam-face)
-      gnus-summary-highlight)
-
 ;; convenience functions
 (defun spam-group-ham-mark-p (group mark &optional spam)
   (when (stringp group)
@@ -1222,6 +1215,15 @@
    nil))
 
 ;;;; Hooks
+
+;;;###autoload
+(defun spam-initialize ()
+  (interactive)
+  (setq spam-install-hooks t)
+  (spam-install-hooks-function)
+  ;; TODO: How do we redo this every time spam-face is customized?
+  (push '((eq mark gnus-spam-mark) . spam-face)
+	gnus-summary-highlight))
 
 ;;;###autoload
 (defun spam-install-hooks-function ()