(mml-generate-mime-1): Remove extra ).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9837edc..caad927 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2003-12-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * mml.el (mml-generate-mime-1): Remove extra ).
+
        * gnus-group.el (gnus-group-set-current-level): Signal errors on
        topic lines.
        (gnus-group-set-current-level): Fix fix.

diff --git a/lisp/mml.el b/lisp/mml.el
index 578390c..fded446 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -430,7 +430,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
                                       (+ (match-beginning 0) 3))))))
                  (cond
                   ((eq (car cont) 'mml)
-                   (let ((mml-boundary (mml-compute-boundary cont)))
+                   (let ((mml-boundary (mml-compute-boundary cont))
                          (mml-generate-default-type "text/plain"))
                      (mml-to-mime))
                    (let ((mm-7bit-chars (concat mm-7bit-chars "\x1b")))