From: morioka <morioka>
Date: Thu, 5 Oct 1995 11:26:43 +0000 (+0000)
Subject: ���� rfc822/field-name-regexp,
X-Git-Tag: XEmacs-20_3-b27-viet~142
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d13097b0815c3e576073090a1a53b2de736d1f34;p=elisp%2Fmu-cite.git

���� rfc822/field-name-regexp,
���� rfc822/field-end, rfc822/get-field-body,
���� rfc822/strip-quoted-pair, rfc822/strip-quoted-string,
���� rfc822/unfolding-string ������������
---

diff --git a/tl-822.el b/tl-822.el
index b0902d7..2283b4c 100644
--- a/tl-822.el
+++ b/tl-822.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: tl-822.el,v 1.1 1995-10-03 05:17:31 morioka Exp $
+;;;	$Id: tl-822.el,v 2.0 1995-10-05 11:26:43 morioka Exp $
 ;;; Keywords: mail, news, RFC 822
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -15,6 +15,88 @@
 (require 'tl-seq)
 
 
+;;; @ field
+;;;
+
+(defconst rfc822/field-name-regexp "[!-9;-~]+")
+
+(defconst rfc822::next-field-top-regexp
+  (concat "\n" rfc822/field-name-regexp ":"))
+
+(defun rfc822/field-end ()
+  (if (re-search-forward rfc822::next-field-top-regexp nil t)
+      (goto-char (match-beginning 0))
+    (if (re-search-forward "^$" nil t)
+	(goto-char (1- (match-beginning 0)))
+      (end-of-line)
+      ))
+  (point)
+  )
+
+(defun rfc822/get-field-body (name)
+  (let ((case-fold-search t))
+    (save-excursion
+      (save-restriction
+	(narrow-to-region
+	 (goto-char (point-min))
+	 (or (and (re-search-forward "^$" nil t) (match-end 0))
+	     (point-max)
+	     ))
+	(goto-char (point-min))
+	(if (re-search-forward (concat "^" name ":[ \t]*") nil t)
+	    (buffer-substring-no-properties
+	     (match-end 0)
+	     (rfc822/field-end)
+	     ))
+	))))
+
+
+;;; @ quoted-string
+;;;
+
+(defun rfc822/strip-quoted-pair (str)
+  (let ((dest "")
+	(i 0)
+	(len (length str))
+	chr flag)
+    (while (< i len)
+      (setq chr (elt str i))
+      (if (or flag (not (eq chr ?\\)))
+	  (progn
+	    (setq dest (concat dest (char-to-string chr)))
+	    (setq flag nil)
+	    )
+	(setq flag t)
+	)
+      (setq i (+ i 1))
+      )
+    dest))
+
+(defun rfc822/strip-quoted-string (str)
+  (rfc822/strip-quoted-pair
+   (let ((max (- (length str) 1))
+	 )
+     (if (and (eq (elt str 0) ?\")
+	      (eq (elt str max) ?\")
+	      )
+	 (substring str 1 max)
+       str)
+     )))
+
+
+;;; @ 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)
+    ))
+
+
 ;;; @ lexical analyze
 ;;;