(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 (file)
--- 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).