From b25266ee989a27ea5a65ad0f1f07a28f1fcf4d1b Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sat, 23 Jan 1999 14:00:30 +0000
Subject: [PATCH] (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.

---
 std11.el |   19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

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).
-- 
1.7.10.4