From: morioka <morioka>
Date: Wed, 28 Aug 1996 14:40:33 +0000 (+0000)
Subject: (rfc822/unfolding-string): New alias for `std11-unfold-string'; moved
X-Git-Tag: XEmacs-20_3-b27-viet~76
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0f590e2a7ea9f514860d02400f647514a5686195;p=elisp%2Fmu-cite.git

(rfc822/unfolding-string): New alias for `std11-unfold-string'; moved
to std11.el.
---

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