/[emacs]/emacs/lisp/gnus/rfc2231.el
ViewVC logotype

Diff of /emacs/lisp/gnus/rfc2231.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by ttn, Sat Aug 6 19:51:42 2005 UTC revision 1.11 by miles, Fri Dec 9 08:57:56 2005 UTC
# Line 127  The list will be on the form Line 127  The list will be on the form
127                         (> c ?\177)) ;; EXTENSION: Support non-ascii chars.                         (> c ?\177)) ;; EXTENSION: Support non-ascii chars.
128                     (not (memq c stoken)))                     (not (memq c stoken)))
129                (setq value (buffer-substring                (setq value (buffer-substring
130                             (point) (progn (forward-sexp) (point)))))                             (point)
131                               (progn
132                                 (forward-sexp)
133                                 ;; We might not have reached at the end of
134                                 ;; the value because of non-ascii chars,
135                                 ;; so we should jump over them if any.
136                                 (while (and (not (eobp))
137                                             (> (char-after) ?\177))
138                                   (forward-char 1)
139                                   (forward-sexp))
140                                 (point)))))
141               (t               (t
142                (error "Invalid header: %s" string)))                (error "Invalid header: %s" string)))
143              (if number              (if number

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26