(mm-insert-multipart-headers): Avoid redundant

[gnus] / lisp / mm-encode.el

diff --git a/lisp/mm-encode.el b/lisp/mm-encode.el
index b4ce37a..0b80981 100644 (file)
--- a/lisp/mm-encode.el
+++ b/lisp/mm-encode.el
@@ -62,8 +62,7 @@ This variable should never be set directly, but bound before a call to
   "Insert multipart/mixed headers."
   (let ((boundary "=-=-="))
     (insert "MIME-Version: 1.0\n")
-    (insert (format "Content-Type: multipart/mixed; boundary=\"%s\"\n"
-                   boundary))
+    (insert "Content-Type: multipart/mixed; boundary=\"" boundary "\"\n")
     boundary))
 
 (defun mm-default-file-encoding (file)
@@ -142,9 +141,9 @@ The encoding used is returned."
        (when (string-match (caar rules) type)
          (throw 'found
                 (let ((encoding 
-                       (if (eq (cadar rules) 'qp-or-base64)
+                       (if (eq (cadr (car rules)) 'qp-or-base64)
                            (mm-qp-or-base64)
-                         (cadar rules))))
+                         (cadr (car rules)))))
                   (if mm-use-ultra-safe-encoding
                       (mm-safer-encoding encoding)
                     encoding))))