[gnus git] branch master updated: m0-5-252-gda189c0 =1= message.el (message-forward-make-body-mime): New args BEG, END specify what part of FORWARD-BUFFER to use. Do the work directly instead of calling `mml-insert-buffer'.

       via  da189c014ccaf35e58946ad10fef8202d4e63818 (commit)
      from  dce6b22d5eeda30a95764e97d697ed610966c624 (commit)


- Log -----------------------------------------------------------------
commit da189c014ccaf35e58946ad10fef8202d4e63818
Author: Richard Stallman <[email protected]>
Date:   Sun Jan 13 22:55:45 2013 +0000

    message.el (message-forward-make-body-mime): New args BEG, END
     specify what part of FORWARD-BUFFER to use.  Do the work directly
     instead of calling `mml-insert-buffer'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fcd9b75..2f0f38d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-01-13  Richard Stallman  <[email protected]>
+
+	* message.el (message-forward-make-body-mime): New args BEG, END
+	specify what part of FORWARD-BUFFER to use.  Do the work directly
+	instead of calling `mml-insert-buffer'.
+
 2013-01-11  Aaron S. Hawley  <[email protected]>
 
 	* gnus-start.el (gnus-check-new-newsgroups): Fix ambiguous doc string
diff --git a/lisp/message.el b/lisp/message.el
index 755cc8c..21847ac 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7420,12 +7420,13 @@ Optional DIGEST will use digest to forward."
 	(dolist (elem ignored)
 	  (message-remove-header elem t))))))
 
-(defun message-forward-make-body-mime (forward-buffer)
+(defun message-forward-make-body-mime (forward-buffer &optional beg end)
   (let ((b (point)))
     (insert "\n\n<#part type=message/rfc822 disposition=inline raw=t>\n")
     (save-restriction
       (narrow-to-region (point) (point))
-      (mml-insert-buffer forward-buffer)
+      (insert-buffer-substring forward-buffer beg end)
+      (mml-quote-region (point-min) (point-max))
       (goto-char (point-min))
       (when (looking-at "From ")
 	(replace-match "X-From-Line: "))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    6 ++++++
 lisp/message.el |    5 +++--
 2 files changed, 9 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project