From 8ecffffbf8d72b62df532c504a68a36ff09056a4 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 24 Nov 2005 04:25:57 +0000 Subject: [PATCH] (rfc2231-parse-string): Support non-ascii chars. --- lisp/ChangeLog | 4 ++++ lisp/rfc2231.el | 10 +++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eb9baf2d6..821f6cf62 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-11-24 Pixel (tiny change) + + * rfc2231.el (rfc2231-parse-string): Support non-ascii chars. + 2005-11-23 Dave Love Add pop3s, pop3/starttls. diff --git a/lisp/rfc2231.el b/lisp/rfc2231.el index 4c39ba6c7..e7be2257a 100644 --- 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 -- 2.34.1