From a0b56a0c9eff874ea8196efea0884a80cc2975b8 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 4 Feb 1998 07:24:33 +0000 Subject: [PATCH] (std11-msg-id-string): New function. (std11-fill-msg-id-list-string): New function. --- std11.el | 44 +++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 43 insertions(+), 1 deletion(-) 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 ;; 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 ;;; -- 1.7.10.4