First patch affecting `mml-parse' (was: Another proposal about `mml-parse'.)

[Lloyd Zusman <ljz@asfast.com>]

Here's my first patch affecting `mml-parse'.  It's actually just the
first half of what I want to do, since as I mentioned earlier, I want
to enchance `mml-parse' so that I can then use the results of
`mml-parse' to rationalize the results of `mml-secure-part'.

In this patch, I actually just made a minor change to the
`mml-read-tag' function within `mml.el'.  This is a helper function
that is called within `mml-parse-1'.  In my changed `mml-read-tag',
whenever it generates a `contents' entry, it also generates a
corresponding `tag-location' entry, whose cdr is the location within
the message buffer of the tag in question.

As I mentioned earlier, I intend to rewrite `mml-secure-part' to make
use of the `mml-parse' output that now contains this `tag-location'
entry.  I'll now start working on my changes to `mml-secure-part',
and I'll post that patch whenever it's ready.

But for now, this current patch should work just fine, and as far as I
can tell, the new, extra info returned by `mml-parse' will not harm
any existing code.

The patch:

*** mml.el.orig	Sun Dec 24 20:28:07 2000
--- mml.el	Sun Dec 24 20:37:22 2000
***************
*** 216,222 ****
  
  (defun mml-read-tag ()
    "Read a tag and return the contents."
!   (let (contents name elem val)
      (forward-char 2)
      (setq name (buffer-substring-no-properties
  		(point) (progn (forward-sexp 1) (point))))
--- 216,223 ----
  
  (defun mml-read-tag ()
    "Read a tag and return the contents."
!   (let ((orig-point (point))
! 	contents name elem val)
      (forward-char 2)
      (setq name (buffer-substring-no-properties
  		(point) (progn (forward-sexp 1) (point))))
***************
*** 234,239 ****
--- 235,242 ----
      (goto-char (match-end 0))
      ;; Don't skip the leading space.
      ;;(skip-chars-forward " \t\n")
+     ;; Put the tag location into the returned contents
+     (setq contents (append (list (cons 'tag-location orig-point)) contents))
      (cons (intern name) (nreverse contents))))
  
  (defun mml-read-part (&optional mml)


-- 
 Lloyd Zusman
 ljz@asfast.com