From: morioka <morioka>
Date: Sun, 24 Jan 1999 12:25:26 +0000 (+0000)
Subject: (mime-parse-msg-id): New function.
X-Git-Tag: flim-1_12-199901241900~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df01d1a63351c2b201dd9c7ac3ae049a16993929;p=elisp%2Fflim.git

(mime-parse-msg-id): New function.
(mime-uri-parse-cid): New function.
---

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
 ;;;