-(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)