Mercurial > hg > xemacs-beta
diff lisp/tm/tm-def.el @ 74:54cc21c15cbb r20-0b32
Import from CVS: tag r20-0b32
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:04:33 +0200 |
| parents | 131b0175ea99 |
| children | c0c698873ce1 |
line wrap: on
line diff
--- a/lisp/tm/tm-def.el Mon Aug 13 09:03:47 2007 +0200 +++ b/lisp/tm/tm-def.el Mon Aug 13 09:04:33 2007 +0200 @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Version: $Id: tm-def.el,v 1.1.1.1 1996/12/18 22:43:37 steve Exp $ +;; Version: $Id: tm-def.el,v 1.1.1.2 1996/12/21 20:50:42 steve Exp $ ;; Keywords: mail, news, MIME, multimedia, definition ;; This file is part of tm (Tools for MIME). @@ -180,14 +180,21 @@ ;;; (defconst base64-token-regexp "[A-Za-z0-9+/=]") +(defconst base64-token-padding-regexp "[A-Za-z0-9+/=]") (defconst mime/B-encoded-text-regexp - (concat "\\(" + (concat "\\(\\(" base64-token-regexp base64-token-regexp base64-token-regexp base64-token-regexp - "\\)+")) + "\\)*" + base64-token-regexp + base64-token-regexp + base64-token-padding-regexp + base64-token-padding-regexp + "\\)")) + (defconst mime/B-encoding-and-encoded-text-regexp (concat "\\(B\\)\\?" mime/B-encoded-text-regexp))