Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-parse.el @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents b82b59fe008d
children 131b0175ea99
comparison
equal deleted inserted replaced
7:c153ca296910 8:4b173ad71786
1 ;;; tm-parse.el --- MIME message parser 1 ;;; tm-parse.el --- MIME message parser
2 2
3 ;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Id: tm-parse.el,v 1.1.1.1 1996/12/18 03:55:32 steve Exp $ 6 ;; Version: $Id: tm-parse.el,v 1.2 1996/12/22 00:29:41 steve Exp $
7 ;; Keywords: mail, news, MIME, multimedia 7 ;; Keywords: mail, news, MIME, multimedia
8 8
9 ;; This file is part of tm (Tools for MIME). 9 ;; This file is part of tm (Tools for MIME).
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02111-1307, USA.
25 25
26 ;;; Code: 26 ;;; Code:
27 27
28 (require 'tl-822) 28 (require 'std11)
29 (require 'tl-misc) 29 (require 'tl-misc)
30 (require 'tm-def) 30 (require 'tm-def)
31 31
32 32
33 ;;; @ field parser 33 ;;; @ field parser
34 ;;; 34 ;;;
35
36 (defconst rfc822/quoted-pair-regexp "\\\\.")
37 (defconst rfc822/qtext-regexp
38 (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))
39 (defconst rfc822/quoted-string-regexp
40 (concat "\""
41 (regexp-*
42 (regexp-or rfc822/qtext-regexp rfc822/quoted-pair-regexp)
43 )
44 "\""))
35 45
36 (defconst mime/content-parameter-value-regexp 46 (defconst mime/content-parameter-value-regexp
37 (concat "\\(" 47 (concat "\\("
38 rfc822/quoted-string-regexp 48 rfc822/quoted-string-regexp
39 "\\|[^; \t\n]*\\)")) 49 "\\|[^; \t\n]*\\)"))