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)))