(rfc2231-parse-string): Support non-ascii chars.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb9baf2..821f6cf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-24  Pixel  <pixel@mandriva.com>  (tiny change)
+
+       * rfc2231.el (rfc2231-parse-string): Support non-ascii chars.
+
 2005-11-23  Dave Love  <fx@gnu.org>
 
        Add pop3s, pop3/starttls.

diff --git a/lisp/rfc2231.el b/lisp/rfc2231.el
index 4c39ba6..e7be225 100644 (file)
--- a/lisp/rfc2231.el
+++ b/lisp/rfc2231.el
@@ -127,7 +127,15 @@ The list will be on the form
                       (> c ?\177)) ;; EXTENSION: Support non-ascii chars.
                   (not (memq c stoken)))
              (setq value (buffer-substring
-                          (point) (progn (forward-sexp) (point)))))
+                          (point)
+                          (progn
+                            (forward-sexp)
+                            ;; EXTENSION: Support non-ascii chars.
+                            (while (and (not (eobp))
+                                        (> (char-after) ?\177))
+                              (forward-char 1)
+                              (forward-sexp))
+                            (point)))))
             (t
              (error "Invalid header: %s" string)))
            (if number