Bug fixes

src/filter-edit.el

@@ -786,6 +786,10 @@ If NOERROR is non-nil, return nil instead of signaling an error."
         (xpermanent-list nil)
         (xtemporary-list nil))
     (while e
+      (set-filter->function 
+       (filter-entry->filter (car e))
+       (lyskom-create-compile-filter-function
+	(filter->pattern (filter-entry->filter (car e)))))
       (set (if (filter->attribute (filter-entry->filter (car e))
                                   'expire)
                'xtemporary-list

src/filter.el

@@ -259,8 +259,8 @@ Returns nil if no such attribute is present."
 
 (defun lyskom-create-compile-filter-function (pattern)
   (if (null pattern)
-      (byte-compile '(lambda (x y) nil)))
-  (byte-compile (lyskom-create-filter-function pattern)))
+      (byte-compile '(lambda (x y) nil))
+    (byte-compile (lyskom-create-filter-function pattern))))
 
 
 (defun lyskom-create-filter-function (pattern)