(mml-make-string): Deleted (unused).

[gnus] / lisp / mml.el

diff --git a/lisp/mml.el b/lisp/mml.el
index 4770d12..86faed8 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -450,12 +450,6 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
            "")
          mml-base-boundary))
 
-(defun mml-make-string (num string)
-  (let ((out ""))
-    (while (not (zerop (decf num)))
-      (setq out (concat out string)))
-    out))
-
 (defun mml-insert-mime-headers (cont type charset encoding)
   (let (parameters disposition description)
     (setq parameters