update.

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

diff --git a/eword-decode.el b/eword-decode.el
index 6ce12a4..3f5a4c7 100644 (file)
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -10,7 +10,6 @@
 ;;     Renamed: 1993/06/03 to tiny-mime.el
 ;;     Renamed: 1995/10/03 from tiny-mime.el (split off encoder)
 ;;     Renamed: 1997/02/22 from tm-ew-d.el
-;; Version: $Revision: 1.11 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
@@ -455,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))
@@ -509,11 +508,11 @@ such as a version of Net$cape)."
       (setq max-column fill-column))
   (let ((c start-column)
        (tokens (eword-lexical-analyze string must-unfold))
-       (result ""))
-    (while tokens
-      (let* ((token (car tokens))
-            (type (car token)))
-       (setq tokens (cdr tokens))
+       (result "")
+       token)
+    (while (and (setq token (car tokens))
+               (setq tokens (cdr tokens)))
+      (let* ((type (car token)))
        (if (eq type 'spaces)
            (let* ((next-token (car tokens))
                   (next-str (eword-decode-token next-token))
@@ -530,7 +529,9 @@ such as a version of Net$cape)."
            (setq result (concat result str)
                  c (+ c (string-width str)))
            ))))
-    result))
+    (if token
+       (concat result (eword-decode-token token))
+      result)))
 
 (defun eword-decode-and-unfold-structured-field (string)
   "Decode and unfold STRING as structured field body.