[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mml.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mml.el |
Date: |
Tue, 02 Aug 2005 03:21:09 -0400 |
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] Changes to emacs/lisp/gnus/mml.el,
Miles Bader <=