projects
/
elisp
/
apel.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
b85edd7
)
(std11-unfold-string): Save LWSP-char.
author
shuhei-k
<shuhei-k>
Mon, 2 Dec 1996 15:20:12 +0000
(15:20 +0000)
committer
shuhei-k
<shuhei-k>
Mon, 2 Dec 1996 15:20:12 +0000
(15:20 +0000)
std11.el
patch
|
blob
|
history
diff --git
a/std11.el
b/std11.el
index
b331657
..
7342229
100644
(file)
--- a/
std11.el
+++ b/
std11.el
@@
-4,7
+4,7
@@
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Keywords: mail, news, RFC 822, STD 11
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; 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).
;; 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 ""))
(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)
(setq string (substring string (match-end 0)))
)
(concat dest string)