From: morioka <morioka>
Date: Sat, 23 Jan 1999 14:00:30 +0000 (+0000)
Subject: (std11-parse-msg-ids): Renamed from `std11-parse-in-reply-to'; define
X-Git-Tag: flim-1_12-199901231900~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b25266ee989a27ea5a65ad0f1f07a28f1fcf4d1b;p=elisp%2Fflim.git

(std11-parse-msg-ids): Renamed from `std11-parse-in-reply-to'; define
`std11-parse-in-reply-to' as obsolete alias.
(std11-parse-msg-id-string): New function.
(std11-parse-msg-ids-string): New function.
---

diff --git a/std11.el b/std11.el
index fa8e5e4..fd7133f 100644
--- a/std11.el
+++ b/std11.el
@@ -722,8 +722,8 @@ be the result."
 	      (cdr ret))
       )))
 
-(defun std11-parse-in-reply-to (tokens)
-  "Parse lexical TOKENS as In-Reply-To field, and return the result."
+(defun std11-parse-msg-ids (tokens)
+  "Parse lexical TOKENS as `*(phrase / msg-id)', and return the result."
   (let ((ret (or (std11-parse-msg-id tokens)
 		 (std11-parse-phrase tokens))))
     (if ret
@@ -737,6 +737,9 @@ be the result."
 	  (nreverse dest)
 	  ))))
 
+(defalias 'std11-parse-in-reply-to 'std11-parse-msg-ids)
+(make-obsolete 'std11-parse-in-reply-to 'std11-parse-msg-ids)
+
 
 ;;; @ composer
 ;;;
@@ -892,6 +895,18 @@ represents addr-spec of RFC 822."
   )
 
 ;;;###autoload
+(defun std11-parse-msg-id-string (string)
+  "Parse STRING as msg-id."
+  (std11-parse-msg-id (std11-lexical-analyze string))
+  )
+
+;;;###autoload
+(defun std11-parse-msg-ids-string (string)
+  "Parse STRING as `*(phrase / msg-id)'."
+  (std11-parse-msg-ids (std11-lexical-analyze string))
+  )
+
+;;;###autoload
 (defun std11-extract-address-components (string)
   "Extract full name and canonical address from STRING.
 Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).