From: morioka <morioka>
Date: Tue, 15 Sep 1998 00:17:55 +0000 (+0000)
Subject: (std11-parse-in-reply-to): New function.
X-Git-Tag: flim-1_9_2~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1edf2c786f5a0754dbe6532a27faf93cb5cff6bf;p=elisp%2Fflim.git

(std11-parse-in-reply-to): New function.
---

diff --git a/std11.el b/std11.el
index 080cae2..d62b88b 100644
--- a/std11.el
+++ b/std11.el
@@ -683,6 +683,21 @@ If BOUNDARY is not nil, it is used as message header separator.
 	      (cdr ret))
       )))
 
+(defun std11-parse-in-reply-to (tokens)
+  "Parse lexical TOKENS as In-Reply-To field, and return the result."
+  (let ((ret (or (std11-parse-msg-id tokens)
+		 (std11-parse-phrase tokens))))
+    (if ret
+	(let ((dest (list (car ret))))
+	  (setq tokens (cdr ret))
+	  (while (setq ret (or (std11-parse-msg-id tokens)
+			       (std11-parse-phrase tokens)))
+	    (setq dest (cons (car ret) dest))
+	    (setq tokens (cdr ret))
+	    )
+	  (nreverse dest)
+	  ))))
+
 
 ;;; @ composer
 ;;;