(eword-lexical-analyze-internal): Fix typo. [cf. <emacs-mime-ja:00425>]

diff --git a/eword-decode.el b/eword-decode.el
index 6a3b447..b3277f5 100644 (file)
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -689,7 +689,7 @@ be the result.")
                           (setq r (funcall func string start must-unfold))))
                (setq rest (cdr rest)))
              (or r
-                 (list (cons 'error (substring string start)) (1+ len)))))
+                 (cons (cons 'error (substring string start)) (1+ len)))))
       (setq dest (cons (car ret) dest)
            start (cdr ret)))
     (nreverse dest)))