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> |
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 "\\" |
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 |
|
|
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)))) |