# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1150856030 0
# Node ID cac840c3298d56bc7472c583b1b1b1c5f6c0d654
# Parent  810a637b1397922d7ff8716dcd2daa87db21eb7a
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

diff -r 810a637b1397 -r cac840c3298d lisp/gnus/ChangeLog
--- 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.
diff -r 810a637b1397 -r cac840c3298d lisp/gnus/rfc2231.el
--- 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)))