Fix for certain malformed QIF files

[Richard Wackerbarth]

This patch works around a problem encountered in some Quicken2000 exported 
QIF files that do not have balanced !Option - !Clear paired entries.

It will not affect properly formed files.

(Fixes Chris Molnar's Import)

Index: src/scm/qif-import/qif-file.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/scm/qif-import/qif-file.scm,v
retrieving revision 1.13
diff -u -r1.13 qif-file.scm
--- src/scm/qif-import/qif-file.scm	2000/06/20 20:49:56	1.13
+++ src/scm/qif-import/qif-file.scm	2000/07/09 16:59:31
@@ -23,6 +23,7 @@
         (current-xtn #f)
         (current-split #f)
         (current-account-name #f)
+        (last-seen-account-name #f)
         (default-split #f)
         (first-xtn #f)
         (ignore-accounts #f)
@@ -60,6 +61,8 @@
                    (case qstate-type 
                      ((type:bank type:cash type:ccard type:invst
                                  #{type:oth\ a}#  #{type:oth\ l}#)
+                      (if ignore-accounts (set! current-account-name 
last-seen-account-name))
+                      (set! ignore-accounts #f)
                       (set! current-xtn (make-qif-xtn))
                       (set! default-split (make-qif-split))
                       (qif-split:set-category! default-split "")
@@ -234,7 +237,8 @@
                    ((account)
                     (case tag
                       ((#\N)
-                       (qif-acct:set-name! current-xtn value))
+                       (qif-acct:set-name! current-xtn value)
+                       (set! last-seen-account-name value))
                       ((#\D)
                        (qif-acct:set-description! current-xtn value))
                       ((#\T)