From b69544ddad706cde5f90616c0bd5687d75ee9402 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 25 Apr 1996 21:24:27 +0000 Subject: [PATCH] (rfc822/narrow-to-header): New function. (rfc822/get-header-string): Use function `rfc822/narrow-to-header'. (rfc822/get-header-string-except): Use function `rfc822/narrow-to-header'. --- tl-822.el | 27 ++++++++++++--------------- 1 file changed, 12 insertions(+), 15 deletions(-) diff --git a/tl-822.el b/tl-822.el index cc29643..e998b01 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.18 1996-04-25 16:15:12 morioka Exp $") + "$Id: tl-822.el,v 7.19 1996-04-25 21:24:27 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -100,17 +100,20 @@ ;;; @ header ;;; +(defun rfc822/narrow-to-header (&optional boundary) + (narrow-to-region (goto-char (point-min)) + (progn + (re-search-forward + (concat "^\\(" (regexp-quote (or boundary "")) "\\)?$") + nil t) + (match-beginning 0) + ))) + (defun rfc822/get-header-string (pat &optional boundary) (let ((case-fold-search t)) (save-excursion (save-restriction - (narrow-to-region (goto-char (point-min)) - (progn - (re-search-forward - (concat "^\\(" (regexp-quote boundary) "\\)?$") - nil t) - (match-beginning 0) - )) + (rfc822/narrow-to-header boundary) (goto-char (point-min)) (let (field header) (while (re-search-forward rfc822/field-top-regexp nil t) @@ -127,13 +130,7 @@ (let ((case-fold-search t)) (save-excursion (save-restriction - (narrow-to-region (goto-char (point-min)) - (progn - (re-search-forward - (concat "^\\(" (regexp-quote boundary) "\\)?$") - nil t) - (match-beginning 0) - )) + (rfc822/narrow-to-header boundary) (goto-char (point-min)) (let (field header) (while (re-search-forward rfc822/field-top-regexp nil t) -- 1.7.10.4