From e7177847f279fa1afa01d895a7bfb6e866810aad Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Aug 1996 17:06:26 +0000 Subject: [PATCH] (rfc822/analyze-special): New alias for `std11-analyze-special'; moved to std11-parse.el. --- tl-822.el | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/tl-822.el b/tl-822.el index 81002ba..d5ae038 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.48 1996-08-28 16:57:08 morioka Exp $") + "$Id: tl-822.el,v 7.49 1996-08-28 17:06:26 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -124,16 +124,8 @@ (defconst rfc822/non-dtext-chars "][") (defconst rfc822/non-ctext-chars "()") -(defalias 'rfc822/analyze-spaces 'std11-analyze-spaces) - -(defun rfc822/analyze-special (str) - (if (and (> (length str) 0) - (find (elt str 0) rfc822/special-chars) - ) - (cons (cons 'specials (substring str 0 1)) - (substring str 1) - )) - ) +(defalias 'rfc822/analyze-spaces 'std11-analyze-spaces) +(defalias 'rfc822/analyze-special 'std11-analyze-special) (defun rfc822/analyze-atom (str) (let ((i (string-match (concat "[" rfc822/non-atom-chars "]") str))) -- 1.7.10.4