[Emacs-diffs] Changes to emacs/lisp/gnus/mml.el

[Miles Bader]

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: "