Mercurial > emacs
changeset 71411:cac840c3298d
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 108-110)
- Merge from emacs--devo--0
- Clean up merge mistakes
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-321
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 21 Jun 2006 02:13:50 +0000 |
parents | 810a637b1397 |
children | 57311883b6e5 |
files | lisp/gnus/ChangeLog lisp/gnus/rfc2231.el |
diffstat | 2 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Jun 21 02:00:47 2006 +0000 +++ b/lisp/gnus/ChangeLog Wed Jun 21 02:13:50 2006 +0000 @@ -1,3 +1,7 @@ +2006-06-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * rfc2231.el (rfc2231-parse-string): Allow `*'s in parameter values. + 2006-06-19 Katsumi Yamaoka <yamaoka@jpl.org> * message.el (message-syntax-checks): Doc fix.
--- a/lisp/gnus/rfc2231.el Wed Jun 21 02:00:47 2006 +0000 +++ b/lisp/gnus/rfc2231.el Wed Jun 21 02:13:50 2006 +0000 @@ -176,14 +176,14 @@ (buffer-substring (point) (progn - (forward-sexp) - ;; We might not have reached at the end of - ;; the value because of non-ascii chars, - ;; so we should jump over them if any. - (while (and (not (eobp)) - (> (char-after) ?\177)) + ;; Jump over asterisk, non-ASCII + ;; and non-boundary characters. + (while (and c + (or (eq c ?*) + (> c ?\177) + (not (eq (char-syntax c) ? )))) (forward-char 1) - (forward-sexp)) + (setq c (char-after))) (point))))) (t (error "Invalid header: %s" string)))