From 344f304c7d000cdea01ec6668d749126fc1455cc Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Aug 1996 16:57:08 +0000 Subject: [PATCH] (rfc822/analyze-spaces): New alias for `std11-analyze-spaces'; moved to std11-parse.el. --- tl-822.el | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/tl-822.el b/tl-822.el index 2a868a8..81002ba 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.47 1996-08-28 15:39:00 morioka Exp $") + "$Id: tl-822.el,v 7.48 1996-08-28 16:57:08 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -124,16 +124,7 @@ (defconst rfc822/non-dtext-chars "][") (defconst rfc822/non-ctext-chars "()") -(defun rfc822/analyze-spaces (str) - (let ((i (string-match (concat "[^" rfc822/space-chars "]") str))) - (if i - (if (> i 0) - (cons (cons 'spaces (substring str 0 i)) - (substring str i) - )) - (if (not (string-equal str "")) - (cons (cons 'spaces str) "") - )))) +(defalias 'rfc822/analyze-spaces 'std11-analyze-spaces) (defun rfc822/analyze-special (str) (if (and (> (length str) 0) -- 1.7.10.4