From 8c6b905745cf889bb7e35891915f546ab20da1b9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 2 Feb 2006 01:09:52 +0000 Subject: [PATCH] Synch to No Gnus 200602020109. --- lisp/ChangeLog | 5 +++++ lisp/mml.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5c1bb1b..10ad511 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-02-01 Max Froumentin (tiny change) + + * mml.el (mml-generate-mime-1): Correct the order of inline signed + parts. + 2006-01-31 Andreas Seltenreich * nnweb.el (nnweb-group-alist): Use defvar instead of defvoo, diff --git a/lisp/mml.el b/lisp/mml.el index 13df698..3070954 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 ;; 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))) -- 1.7.10.4