From: morioka <morioka>
Date: Fri, 15 Jan 1999 16:37:30 +0000 (+0000)
Subject: rearrangement.
X-Git-Tag: flim-1_12-199901151900~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d06af09c04ba4184978bd66f6390352cc79e884a;p=elisp%2Fflim.git

rearrangement.
---

diff --git a/std11.el b/std11.el
index 79164ab..56b133c 100644
--- a/std11.el
+++ b/std11.el
@@ -28,7 +28,7 @@
     (require 'poe))
 
 
-;;; @ field
+;;; @ fetch
 ;;;
 
 (defconst std11-field-name-regexp "[!-9;-~]+")
@@ -123,29 +123,6 @@ header separator."
 	  )
 	dest))))
 
-
-;;; @ unfolding
-;;;
-
-(defun std11-unfold-string (string)
-  "Unfold STRING as message header field."
-  (let ((dest "")
-	(p 0))
-    (while (string-match "\n\\([ \t]\\)" string p)
-      (setq dest (concat dest
-                         (substring string p (match-beginning 0))
-                         (substring string
-				    (match-beginning 1)
-				    (setq p (match-end 0)))
-                         ))
-      )
-    (concat dest (substring string p))
-    ))
-
-
-;;; @ header
-;;;
-
 (defun std11-header-string (regexp &optional boundary)
   "Return string of message header fields matched by REGEXP.
 If BOUNDARY is not nil, it is used as message header separator.
@@ -203,6 +180,25 @@ If BOUNDARY is not nil, it is used as message header separator.
 	dest))))
 
 
+;;; @ unfolding
+;;;
+
+(defun std11-unfold-string (string)
+  "Unfold STRING as message header field."
+  (let ((dest "")
+	(p 0))
+    (while (string-match "\n\\([ \t]\\)" string p)
+      (setq dest (concat dest
+                         (substring string p (match-beginning 0))
+                         (substring string
+				    (match-beginning 1)
+				    (setq p (match-end 0)))
+                         ))
+      )
+    (concat dest (substring string p))
+    ))
+
+
 ;;; @ quoted-string
 ;;;