From c417301942528b0941565c3f0d3f2b4de7799aff Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 25 Apr 1996 16:15:12 +0000 Subject: [PATCH] (rfc822/get-header-string, rfc822/get-header-string-except): Argument `boundary' is changed to optional. --- tl-822.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tl-822.el b/tl-822.el index 3a7c1d7..cc29643 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.17 1996-04-25 16:08:35 morioka Exp $") + "$Id: tl-822.el,v 7.18 1996-04-25 16:15:12 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -100,7 +100,7 @@ ;;; @ header ;;; -(defun rfc822/get-header-string (pat boundary) +(defun rfc822/get-header-string (pat &optional boundary) (let ((case-fold-search t)) (save-excursion (save-restriction @@ -123,7 +123,7 @@ header) )))) -(defun rfc822/get-header-string-except (pat boundary) +(defun rfc822/get-header-string-except (pat &optional boundary) (let ((case-fold-search t)) (save-excursion (save-restriction -- 1.7.10.4