[Emacs-diffs] Changes to emacs/lisp/gnus/rfc2231.el

[Miles Bader]

Index: emacs/lisp/gnus/rfc2231.el
diff -c emacs/lisp/gnus/rfc2231.el:1.10 emacs/lisp/gnus/rfc2231.el:1.11
*** emacs/lisp/gnus/rfc2231.el:1.10     Sat Aug  6 19:51:42 2005
--- emacs/lisp/gnus/rfc2231.el  Fri Dec  9 08:57:56 2005
***************
*** 127,133 ****
                       (> c ?\177)) ;; EXTENSION: Support non-ascii chars.
                   (not (memq c stoken)))
              (setq value (buffer-substring
!                          (point) (progn (forward-sexp) (point)))))
             (t
              (error "Invalid header: %s" string)))
            (if number
--- 127,143 ----
                       (> c ?\177)) ;; EXTENSION: Support non-ascii chars.
                   (not (memq c stoken)))
              (setq value (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))
!                              (forward-char 1)
!                              (forward-sexp))
!                            (point)))))
             (t
              (error "Invalid header: %s" string)))
            (if number