url-mailto insert 'body' in the wrong place

[Leo]

Dear all,

To see the issue:

  (url-mailto (url-generic-parse-url "mailto:address@hidden should be inserted 
before the signature"))

If the mail buffer has a signature part, the 'body' text will be added
after the signature, which is clearly wrong.

I wonder if the following small patch is good:

Index: url-mailto.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/url/url-mailto.el,v
retrieving revision 1.4.2.9
diff -u -r1.4.2.9 url-mailto.el
--- url-mailto.el       26 Jan 2007 06:15:30 -0000      1.4.2.9
+++ url-mailto.el       28 May 2007 18:13:20 -0000
@@ -60,6 +60,11 @@
        (save-excursion
          (insert "\n"))))))
 
+(defun url-mail-goto-body ()
+  (goto-char (point-min))
+  (or (search-forward (concat "\n" mail-header-separator "\n") nil t)
+      (goto-char (point-max))))
+
 ;;;###autoload
 (defun url-mailto (url)
   "Handle the mailto: URL syntax."
@@ -100,7 +105,7 @@
     (while args
       (if (string= (caar args) "body")
          (progn
-           (goto-char (point-max))
+           (url-mail-goto-body)
            (insert (mapconcat 
                     #'(lambda (string)
                         (replace-regexp-in-string "\r\n" "\n" string))

Thanks,
-- 
Leo <sdl.web AT gmail.com>                         (GPG Key: 9283AA3F)