From: morioka Date: Wed, 28 Aug 1996 17:16:30 +0000 (+0000) Subject: (rfc822/analyze-atom): New alias for `std11-analyze-atom'; New X-Git-Tag: XEmacs-20_3-b27-viet~60 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=31443116f1a6a0f69f4aa6b22372a50ca2a1d89d;p=elisp%2Fmu-cite.git (rfc822/analyze-atom): New alias for `std11-analyze-atom'; New implementation. --- diff --git a/tl-822.el b/tl-822.el index d5ae038..064351d 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.49 1996-08-28 17:06:26 morioka Exp $") + "$Id: tl-822.el,v 7.50 1996-08-28 17:16:30 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -126,17 +126,7 @@ (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))) - (if i - (if (> i 0) - (cons (cons 'atom (substring str 0 i)) - (substring str i) - )) - (if (not (string-equal str "")) - (cons (cons 'spaces str) "") - )))) +(defalias 'rfc822/analyze-atom 'std11-analyze-atom) (defun rfc822/analyze-quoted-string (str) (let ((len (length str)))