From 155e91ad9f51a3b2325ab0a73be2e68005a2abc2 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Aug 1996 12:32:17 +0000 Subject: [PATCH] (std11-next-field-head-regexp): New constant. --- std11.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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 ;; 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")) )) -- 1.7.10.4