From 1edf2c786f5a0754dbe6532a27faf93cb5cff6bf Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 15 Sep 1998 00:17:55 +0000 Subject: [PATCH] (std11-parse-in-reply-to): New function. --- std11.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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 ;;; -- 1.7.10.4