update.

[elisp/semi.git] / eword-decode.el

diff --git a/eword-decode.el b/eword-decode.el
index aa638db..3f5a4c7 100644 (file)
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -454,7 +454,7 @@ be the result."
                          (null (setq r (funcall func string must-unfold)))
                          )
                (setq rest (cdr rest)))
-             (or r '((error) . ""))
+             (or r `((error . ,string) . ""))
              ))
       (setq dest (cons (car ret) dest))
       (setq string (cdr ret))