From 0f590e2a7ea9f514860d02400f647514a5686195 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Aug 1996 14:40:33 +0000 Subject: [PATCH] (rfc822/unfolding-string): New alias for `std11-unfold-string'; moved to std11.el. --- tl-822.el | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/tl-822.el b/tl-822.el index 86c93a3..2b9b460 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.42 1996-08-28 13:10:17 morioka Exp $") + "$Id: tl-822.el,v 7.43 1996-08-28 14:40:33 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -111,14 +111,7 @@ ;;; @ unfolding ;;; -(defun rfc822/unfolding-string (str) - (let ((dest "")) - (while (string-match "\n\\s +" str) - (setq dest (concat dest (substring str 0 (match-beginning 0)) " ")) - (setq str (substring str (match-end 0))) - ) - (concat dest str) - )) +(defalias 'rfc822/unfolding-string 'std11-unfold-string) ;;; @ lexical analyze -- 1.7.10.4