From: morioka <morioka>
Date: Wed, 28 Aug 1996 15:06:34 +0000 (+0000)
Subject: (std11-unfold-string): New function.
X-Git-Tag: XEmacs-20_3-b6~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=17e97227909f860d944266f1a27aca4fa5548948;p=elisp%2Fapel.git

(std11-unfold-string): New function.
---

diff --git a/std11.el b/std11.el
index 62ad43b..fc381cf 100644
--- a/std11.el
+++ b/std11.el
@@ -4,7 +4,7 @@
 
 ;; Author:   MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: mail, news, RFC 822, STD 11
-;; Version: $Id: std11.el,v 0.6 1996-08-28 14:17:21 morioka Exp $
+;; Version: $Id: std11.el,v 0.7 1996-08-28 15:06:34 morioka Exp $
 
 ;; This file is part of tl (Tiny Library).
 
@@ -39,6 +39,9 @@
   (concat "\n" std11-field-name-regexp ":"))
 
 (defun std11-field-body (name &optional boundary)
+  "Return body of field NAME.
+If BOUNDARY is not nil, it is used as message header separator.
+\[std11.el]"
   (save-excursion
     (save-restriction
       (std11-narrow-to-header boundary)
@@ -49,6 +52,7 @@
 	  )))))
 
 (defun std11-field-end ()
+  "Move to end of field and return this point. [std11.el]"
   (if (re-search-forward std11-next-field-head-regexp nil t)
       (goto-char (match-beginning 0))
     (if (re-search-forward "^$" nil t)
@@ -59,6 +63,9 @@
   )
 
 (defun std11-field-names (&optional boundary)
+  "Return list of all field-names of the message header in current buffer.
+If BOUNDARY is not nil, it is used as message header separator.
+\[std11.el]"
   (save-excursion
     (save-restriction
       (std11-narrow-to-header boundary)
@@ -74,6 +81,9 @@
 	dest))))
 
 (defun std11-field-bodies (field-names &optional default-value boundary)
+  "Return list of each field-bodies of FIELD-NAMES of the message header
+in current buffer. If BOUNDARY is not nil, it is used as message
+header separator. [std11.el]"
   (save-excursion
     (save-restriction
       (std11-narrow-to-header boundary)
@@ -95,10 +105,27 @@
 	dest))))
 
 
+;;; @ unfolding
+;;;
+
+(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)) " "))
+      (setq string (substring string (match-end 0)))
+      )
+    (concat dest string)
+    ))
+
+
 ;;; @ header
 ;;;
 
 (defun std11-narrow-to-header (&optional boundary)
+  "Narrow to the message header.
+If BOUNDARY is not nil, it is used as message header separator.
+\[std11.el]"
   (narrow-to-region
    (goto-char (point-min))
    (if (re-search-forward
@@ -108,7 +135,10 @@
      (point-max)
      )))
 
-(defun std11-header-string (pat &optional boundary)
+(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.
+\[std11.el]"
   (let ((case-fold-search t))
     (save-excursion
       (save-restriction
@@ -118,13 +148,16 @@
 	  (while (re-search-forward std11-field-head-regexp nil t)
 	    (setq field
 		  (buffer-substring (match-beginning 0) (std11-field-end)))
-	    (if (string-match pat field)
+	    (if (string-match regexp field)
 		(setq header (concat header field "\n"))
 	      ))
 	  header)
 	))))
 
-(defun std11-header-string-except (pat &optional boundary)
+(defun std11-header-string-except (regexp &optional boundary)
+  "Return string of message header fields not matched by REGEXP.
+If BOUNDARY is not nil, it is used as message header separator.
+\[std11.el]"
   (let ((case-fold-search t))
     (save-excursion
       (save-restriction
@@ -134,7 +167,7 @@
 	  (while (re-search-forward std11-field-head-regexp nil t)
 	    (setq field
 		  (buffer-substring (match-beginning 0) (std11-field-end)))
-	    (if (not (string-match pat field))
+	    (if (not (string-match regexp field))
 		(setq header (concat header field "\n"))
 	      ))
 	  header)