--- spam.el.orig        Thu Jan  9 15:29:38 2003
+++ spam.el     Thu Jan  9 15:31:24 2003
@@ -588,13 +588,17 @@
   "Register an article, given as a string, with a category.
 Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
   (when (stringp article-string)
-    (let ((category (or category gnus-newsgroup-name)))
+    (let ((category (or category gnus-newsgroup-name))
+          (db-param (spam-get-ifile-database-parameter)))
       (with-temp-buffer
        (insert-string article-string)
-       (call-process-region (point-min) (point-max) spam-ifile-path 
-                            nil nil nil 
-                            "-h" "-i" category 
-                            (spam-get-ifile-database-parameter))))))
+        (if db-param
+           (call-process-region (point-min) (point-max) spam-ifile-path 
+                                nil nil nil 
+                                "-h" "-i" category db-param)
+         (call-process-region (point-min) (point-max) spam-ifile-path 
+                              nil nil nil 
+                              "-h" "-i" category))))))
 
 (defun spam-ifile-register-spam-routine ()
   (spam-generic-register-routine