From: morioka <morioka>
Date: Wed, 4 Feb 1998 07:24:33 +0000 (+0000)
Subject: (std11-msg-id-string): New function.
X-Git-Tag: apel-7_1~159
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a0b56a0c9eff874ea8196efea0884a80cc2975b8;p=elisp%2Fapel.git

(std11-msg-id-string): New function.
(std11-fill-msg-id-list-string): New function.
---

diff --git a/std11.el b/std11.el
index c051a16..117ddc6 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.40 1997-03-03 08:03:06 shuhei-k Exp $
+;; Version: $Id: std11.el,v 1.1 1998-02-04 07:24:33 morioka Exp $
 
 ;; This file is part of MU (Message Utilities).
 
@@ -330,6 +330,48 @@ represents addr-spec of RFC 822. [std11.el]"
 		 )
 	   ))))
 
+(defun std11-msg-id-string (msg-id)
+  "Return string from parsed MSG-ID of RFC 822."
+  (concat "<" (std11-addr-to-string (cdr msg-id)) ">")
+  )
+
+(defun std11-fill-msg-id-list-string (string &optional column)
+  "Fill list of msg-id in STRING, and return the result."
+  (or column
+      (setq column 12))
+  (let ((lal (std11-lexical-analyze string))
+	dest)
+    (let ((ret (std11-parse-msg-id lal)))
+      (if ret
+	  (let* ((str (std11-msg-id-string (car ret)))
+		 (len (length str)))
+	    (setq lal (cdr ret))
+	    (if (> (+ len column) 76)
+		(setq dest (concat dest "\n " str)
+		      column (1+ len))
+	      (setq dest str
+		    column (+ column len))
+	      ))
+	(setq dest (concat dest (cdr (car lal)))
+	      lal (cdr lal))
+	))
+    (while lal
+      (let ((ret (std11-parse-msg-id lal)))
+	(if ret
+	    (let* ((str (std11-msg-id-string (car ret)))
+		   (len (1+ (length str))))
+	      (setq lal (cdr ret))
+	      (if (> (+ len column) 76)
+		  (setq dest (concat dest "\n " str)
+			column len)
+		(setq dest (concat dest " " str)
+		      column (+ column len))
+		))
+	  (setq dest (concat dest (cdr (car lal)))
+		lal (cdr lal))
+	  )))
+    dest))
+
 
 ;;; @ parser
 ;;;