Index: emacs/lisp/gnus/mml.el
diff -c emacs/lisp/gnus/mml.el:1.27 emacs/lisp/gnus/mml.el:1.28
*** emacs/lisp/gnus/mml.el:1.27 Sun Jul 31 00:12:23 2005
--- emacs/lisp/gnus/mml.el Tue Aug 2 07:21:08 2005
***************
*** 409,416 ****
(let* ((raw (cdr (assq 'raw cont)))
(filename (cdr (assq 'filename cont)))
(type (or (cdr (assq 'type cont))
! (and filename (mm-default-file-encoding filename))
! "application/octet-stream"))
coded encoding charset flowed)
(if (and (not raw)
(member (car (split-string type "/")) '("text" "message")))
--- 409,418 ----
(let* ((raw (cdr (assq 'raw cont)))
(filename (cdr (assq 'filename cont)))
(type (or (cdr (assq 'type cont))
! (if filename
! (or (mm-default-file-encoding filename)
! "application/octet-stream")
! "text/plain")))
coded encoding charset flowed)
(if (and (not raw)
(member (car (split-string type "/")) '("text" "message")))
***************
*** 533,540 ****
(insert "\n\n")
(insert "Content-Type: "
(or (cdr (assq 'type cont))
! (and name (mm-default-file-encoding name))
! "application/octet-stream")
"\n")
(insert "Content-ID: " (message-make-message-id) "\n")
(insert "Content-Transfer-Encoding: "
--- 535,544 ----
(insert "\n\n")
(insert "Content-Type: "
(or (cdr (assq 'type cont))
! (if name
! (or (mm-default-file-encoding name)
! "application/octet-stream")
! "text/plain"))
"\n")
(insert "Content-ID: " (message-make-message-id) "\n")
(insert "Content-Transfer-Encoding: "
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
