Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-def.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children c0c698873ce1
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
1 ;;; tm-def.el --- definition module for tm 1 ;;; tm-def.el --- definition module for tm
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 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-def.el,v 1.1.1.1 1996/12/18 22:43:37 steve Exp $ 6 ;; Version: $Id: tm-def.el,v 1.1.1.2 1996/12/21 20:50:42 steve Exp $
7 ;; Keywords: mail, news, MIME, multimedia, definition 7 ;; Keywords: mail, news, MIME, multimedia, definition
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
178 178
179 ;;; @@ Base64 179 ;;; @@ Base64
180 ;;; 180 ;;;
181 181
182 (defconst base64-token-regexp "[A-Za-z0-9+/=]") 182 (defconst base64-token-regexp "[A-Za-z0-9+/=]")
183 (defconst base64-token-padding-regexp "[A-Za-z0-9+/=]")
183 184
184 (defconst mime/B-encoded-text-regexp 185 (defconst mime/B-encoded-text-regexp
185 (concat "\\(" 186 (concat "\\(\\("
186 base64-token-regexp 187 base64-token-regexp
187 base64-token-regexp 188 base64-token-regexp
188 base64-token-regexp 189 base64-token-regexp
189 base64-token-regexp 190 base64-token-regexp
190 "\\)+")) 191 "\\)*"
192 base64-token-regexp
193 base64-token-regexp
194 base64-token-padding-regexp
195 base64-token-padding-regexp
196 "\\)"))
197
191 (defconst mime/B-encoding-and-encoded-text-regexp 198 (defconst mime/B-encoding-and-encoded-text-regexp
192 (concat "\\(B\\)\\?" mime/B-encoded-text-regexp)) 199 (concat "\\(B\\)\\?" mime/B-encoded-text-regexp))
193 200
194 201
195 ;;; @@ Quoted-Printable 202 ;;; @@ Quoted-Printable