mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Merge from gnus--rel--5.10

Browse Source 
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
This commit is contained in:
Miles Bader 2006-06-21 02:13:50 +00:00
parent 4e78977ec2
commit a367620f73
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -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.

14
lisp/gnus/rfc2231.el
View File

@ -176,14 +176,14 @@ must never cause a Lisp error."
(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)))