From 92fa18da8e21b8b19900681a17e756a2297fe41b Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Mon, 2 Dec 1996 15:20:12 +0000 Subject: [PATCH] (std11-unfold-string): Save LWSP-char. --- std11.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/std11.el b/std11.el index b331657..7342229 100644 --- a/std11.el +++ b/std11.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Keywords: mail, news, RFC 822, STD 11 -;; Version: $Id: std11.el,v 0.35 1996-11-19 07:08:47 morioka Exp $ +;; Version: $Id: std11.el,v 0.36 1996-12-02 15:20:12 shuhei-k Exp $ ;; This file is part of MU (Message Utilities). @@ -113,8 +113,11 @@ header separator. [std11.el]" (defun std11-unfold-string (string) "Unfold STRING as message header field. [std11.el]" (let ((dest "")) - (while (string-match "\n\\s +" string) - (setq dest (concat dest (substring string 0 (match-beginning 0)) " ")) + (while (string-match "\n\\([ \t]\\)" string) + (setq dest (concat dest + (substring string 0 (match-beginning 0)) + (match-string 1 string) + )) (setq string (substring string (match-end 0))) ) (concat dest string) -- 1.7.10.4