From 82a074fa3a5a1476f0a59d8dff8512ee781463fe Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 4 Feb 1998 07:21:11 +0000 Subject: [PATCH] (std11-parse-msg-id): New function. --- std11-parse.el | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/std11-parse.el b/std11-parse.el index 631881d..9139530 100644 --- a/std11-parse.el +++ b/std11-parse.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Keywords: mail, news, RFC 822, STD 11 -;; Version: $Id: std11-parse.el,v 0.18 1997-09-25 16:06:50 morioka Exp $ +;; Version: $Id: std11-parse.el,v 1.1 1998-02-04 07:21:11 morioka Exp $ ;; This file is part of MU (Message Utilities). @@ -434,6 +434,24 @@ (nreverse dest) )))) +(defun std11-parse-msg-id (lal) + (let ((ret (std11-parse-ascii-token lal)) + < addr-spec >) + (if (and ret + (setq < (car ret)) + (string-equal (cdr (assq 'specials <)) "<") + (setq lal (cdr ret)) + (setq ret (std11-parse-addr-spec lal)) + (setq addr-spec (car ret)) + (setq lal (cdr ret)) + (setq ret (std11-parse-ascii-token lal)) + (setq > (car ret)) + (string-equal (cdr (assq 'specials >)) ">") + ) + (cons (cons 'msg-id (cdr addr-spec)) + (cdr ret)) + ))) + ;;; @ end ;;; -- 1.7.10.4