From: morioka <morioka>
Date: Wed, 28 Aug 1996 12:32:17 +0000 (+0000)
Subject: (std11-next-field-head-regexp): New constant.
X-Git-Tag: XEmacs-20_3-b6~68
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=155e91ad9f51a3b2325ab0a73be2e68005a2abc2;p=elisp%2Fapel.git

(std11-next-field-head-regexp): New constant.
---

diff --git a/std11.el b/std11.el
index a6a404a..087e207 100644
--- a/std11.el
+++ b/std11.el
@@ -4,7 +4,7 @@
 
 ;; Author:   MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: mail, news, RFC 822, STD 11
-;; Version: $Id: std11.el,v 0.1 1996-08-28 12:29:00 morioka Exp $
+;; Version: $Id: std11.el,v 0.2 1996-08-28 12:32:17 morioka Exp $
 
 ;; This file is part of tl (Tiny Library).
 
@@ -31,9 +31,11 @@
 (defconst std11-field-name-regexp "[!-9;-~]+")
 (defconst std11-field-head-regexp
   (concat "\\(" std11-field-name-regexp "\\):"))
+(defconst std11-next-field-head-regexp
+  (concat "\n" std11-field-head-regexp))
 
 (defun std11-field-end ()
-  (if (re-search-forward rfc822::next-field-top-regexp nil t)
+  (if (re-search-forward std11-next-field-head-regexp nil t)
       (goto-char (match-beginning 0))
     (if (re-search-forward "^$" nil t)
 	(goto-char (1- (match-beginning 0)))
@@ -54,9 +56,8 @@
 	(goto-char (point-min))
 	(let (field header)
 	  (while (re-search-forward std11-field-head-regexp nil t)
-	    (setq field (buffer-substring (match-beginning 0)
-					  (rfc822/field-end)
-					  ))
+	    (setq field
+		  (buffer-substring (match-beginning 0) (std11-field-end)))
 	    (if (string-match pat field)
 		(setq header (concat header field "\n"))
 	      ))
@@ -71,9 +72,8 @@
 	(goto-char (point-min))
 	(let (field header)
 	  (while (re-search-forward std11-field-head-regexp nil t)
-	    (setq field (buffer-substring (match-beginning 0)
-					  (rfc822/field-end)
-					  ))
+	    (setq field
+		  (buffer-substring (match-beginning 0) (std11-field-end)))
 	    (if (not (string-match pat field))
 		(setq header (concat header field "\n"))
 	      ))