From: yamaoka Date: Thu, 24 Nov 2005 04:26:24 +0000 (+0000) Subject: Synch to No Gnus 200511240425. X-Git-Tag: t-gnus-6_17_4-quimby-~214 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fe30f41e6fe6511dee92243f4ac6061730162a7a;p=elisp%2Fgnus.git- Synch to No Gnus 200511240425. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 898e73a..6081093 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 33ab116..f07d308 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