From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Thu, 2 Feb 2006 01:09:31 +0000 (+0000)
Subject: (mml-generate-mime-1): Correct the order of inline signed parts.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=98249e56e828f81dc1d8f336047b01d59eb776f7;p=gnus

(mml-generate-mime-1): Correct the order of inline signed parts.
 From Max Froumentin <max(at)lapin-bleu.net>.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d57f64eee..371b377e0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-01  Max Froumentin  <max@lapin-bleu.net>  (tiny change)
+
+	* mml.el (mml-generate-mime-1): Correct the order of inline signed
+	parts.
+
 2006-01-31  Andreas Seltenreich <uwi7@stud.uni-karlsruhe.de>
 
 	* nnweb.el (nnweb-group-alist): Use defvar instead of defvoo,
diff --git a/lisp/mml.el b/lisp/mml.el
index 9e97e4aa5..ea1bc2965 100644
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1,7 +1,7 @@
 ;;; mml.el --- A package for parsing and validating MML documents
 
 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005 Free Software Foundation, Inc.
+;;   2005, 2006 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; This file is part of GNU Emacs.
@@ -589,7 +589,8 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
 		  ;; Skip `multipart' and attributes.
 		  (when (and (consp part) (consp (cdr part)))
 		    (insert "\n--" mml-boundary "\n")
-		    (mml-generate-mime-1 part))))
+		    (mml-generate-mime-1 part)
+		    (goto-char (point-max)))))
 	      (insert "\n--" mml-boundary "--\n")))))
        (t
 	(error "Invalid element: %S" cont)))