From e3686735b34b4cfcf4752e84a24fe3ef33d8aeec Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Thu, 3 Mar 2011 20:50:54 +0900 Subject: [PATCH] (mml-generate-mime): Inherit message-options after mm-with-multibyte-buffer. --- lisp/mml.el | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/lisp/mml.el b/lisp/mml.el index 8b196fa..2f4417f 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -461,11 +461,13 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." (defvar mml-boundary nil) (defvar mml-base-boundary "-=-=") (defvar mml-multipart-number 0) +(defvar message-options) (defun mml-generate-mime () "Generate a MIME message based on the current MML document." (let ((cont (mml-parse)) - (mml-multipart-number mml-multipart-number)) + (mml-multipart-number mml-multipart-number) + (message-options (if (boundp 'message-options) message-options))) (if (not cont) nil (mm-with-multibyte-buffer -- 1.7.2.3