From: morioka <morioka>
Date: Thu, 5 Oct 1995 12:09:52 +0000 (+0000)
Subject: ���� rfc822/field-top-regexp ������������
X-Git-Tag: XEmacs-20_3-b27-viet~141
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5a5e8bb03ebf9904c0a9decc0b104689c0b356d6;p=elisp%2Fmu-cite.git

���� rfc822/field-top-regexp ������������
---

diff --git a/tl-822.el b/tl-822.el
index 2283b4c..62c0924 100644
--- a/tl-822.el
+++ b/tl-822.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: tl-822.el,v 2.0 1995-10-05 11:26:43 morioka Exp $
+;;;	$Id: tl-822.el,v 3.0 1995-10-05 12:09:52 morioka Exp $
 ;;; Keywords: mail, news, RFC 822
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -20,8 +20,10 @@
 
 (defconst rfc822/field-name-regexp "[!-9;-~]+")
 
-(defconst rfc822::next-field-top-regexp
-  (concat "\n" rfc822/field-name-regexp ":"))
+(defconst rfc822/field-top-regexp
+  (concat "\\(" rfc822/field-name-regexp "\\):"))
+
+(defconst rfc822::next-field-top-regexp (concat "\n" rfc822/field-top-regexp))
 
 (defun rfc822/field-end ()
   (if (re-search-forward rfc822::next-field-top-regexp nil t)