/[emacs]/emacs/lisp/gnus/ietf-drums.el
ViewVC logotype

Diff of /emacs/lisp/gnus/ietf-drums.el

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

revision 1.5 by pj, Sun Jul 15 17:42:53 2001 UTC revision 1.5.8.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 1  Line 1 
1  ;;; ietf-drums.el --- functions for parsing RFC822bis headers  ;;; ietf-drums.el --- functions for parsing RFC822bis headers
2  ;; Copyright (C) 1998, 1999, 2000  ;; Copyright (C) 1998, 1999, 2000, 2002
3  ;;        Free Software Foundation, Inc.  ;;        Free Software Foundation, Inc.
4    
5  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
# Line 36  Line 36 
36  (defvar ietf-drums-no-ws-ctl-token "\001-\010\013\014\016-\037\177"  (defvar ietf-drums-no-ws-ctl-token "\001-\010\013\014\016-\037\177"
37    "US-ASCII control characters excluding CR, LF and white space.")    "US-ASCII control characters excluding CR, LF and white space.")
38  (defvar ietf-drums-text-token "\001-\011\013\014\016-\177"  (defvar ietf-drums-text-token "\001-\011\013\014\016-\177"
39    "US-ASCII characters exlcuding CR and LF.")    "US-ASCII characters excluding CR and LF.")
40  (defvar ietf-drums-specials-token "()<>[]:;@\\,.\""  (defvar ietf-drums-specials-token "()<>[]:;@\\,.\""
41    "Special characters.")    "Special characters.")
42  (defvar ietf-drums-quote-token "\\"  (defvar ietf-drums-quote-token "\\"
# Line 52  Line 52 
52    "Textual token including full stop.")    "Textual token including full stop.")
53  (defvar ietf-drums-qtext-token  (defvar ietf-drums-qtext-token
54    (concat ietf-drums-no-ws-ctl-token "\041\043-\133\135-\177")    (concat ietf-drums-no-ws-ctl-token "\041\043-\133\135-\177")
55    "Non-white-space control characaters, plus the rest of ASCII excluding backslash and doublequote.")    "Non-white-space control characters, plus the rest of ASCII excluding
56    backslash and doublequote.")
57  (defvar ietf-drums-tspecials "][()<>@,;:\\\"/?="  (defvar ietf-drums-tspecials "][()<>@,;:\\\"/?="
58    "Tspecials.")    "Tspecials.")
59    
# Line 128  Line 129 
129            (forward-sexp 1))            (forward-sexp 1))
130           ((eq c ?\()           ((eq c ?\()
131            (forward-sexp 1))            (forward-sexp 1))
132           ((memq c '(? ?\t ?\n))           ((memq c '(?\  ?\t ?\n))
133            (delete-char 1))            (delete-char 1))
134           (t           (t
135            (forward-char 1))))            (forward-char 1))))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.5.8.1

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