If regcomp fails, assume rx has not been allocated.

Fixes a core dump for save-hook '~f foo\.bar@(something|other)\.com' =foo.

diff --git a/pattern.c b/pattern.c
index 9b5a656dee27b2b3ec46db1b70f6ded0891e8338..a0f95945209d6bd11c43793179a8fab2b5156d43 100644 (file)
--- a/pattern.c
+++ b/pattern.c
@@ -294,7 +294,6 @@ static int eat_regexp (pattern_t *pat, BUFFER *s, BUFFER *err)
     if (r)
     {
       regerror (r, pat->p.rx, err->data, err->dsize);
-      regfree (pat->p.rx);
       FREE (&pat->p.rx);
       return (-1);
     }