From df01d1a63351c2b201dd9c7ac3ae049a16993929 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 24 Jan 1999 12:25:26 +0000 Subject: [PATCH] (mime-parse-msg-id): New function. (mime-uri-parse-cid): New function. --- mime-parse.el | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/mime-parse.el b/mime-parse.el index 3c3a49d..003b800 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -24,7 +24,6 @@ ;;; Code: -;;(require 'emu) (require 'std11) (require 'mime-def) @@ -194,6 +193,24 @@ If is is not found, return DEFAULT-ENCODING." default-encoding))) +;;; @ Content-Id / Message-Id +;;; + +;;;###autoload +(defun mime-parse-msg-id (tokens) + "Parse TOKENS as msg-id of Content-Id or Message-Id field." + (car (std11-parse-msg-id tokens))) + +;;;###autoload +(defun mime-uri-parse-cid (string) + "Parse STRING as cid URI." + (inline + (mime-parse-msg-id (cons '(specials . "<") + (nconc + (cdr (cdr (std11-lexical-analyze string))) + '((specials . ">"))))))) + + ;;; @ message parser ;;; -- 1.7.10.4