;;; mm-encode.el --- Functions for encoding MIME things
-;; Copyright (C) 1998-2000 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
"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)
(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))))