[Emacs-diffs] Changes to emacs/lisp/gnus/mm-encode.el [gnus-5_10-branch]

[Reiner Steib]

Index: emacs/lisp/gnus/mm-encode.el
diff -c emacs/lisp/gnus/mm-encode.el:1.9.2.1 
emacs/lisp/gnus/mm-encode.el:1.9.2.2
*** emacs/lisp/gnus/mm-encode.el:1.9.2.1        Thu Jul 22 16:45:51 2004
--- emacs/lisp/gnus/mm-encode.el        Tue Aug 31 14:47:59 2004
***************
*** 1,5 ****
  ;;; mm-encode.el --- Functions for encoding MIME things
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; mm-encode.el --- Functions for encoding MIME things
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 36,48 ****
    '(("text/x-patch" 8bit)
      ("text/.*" qp-or-base64)
      ("message/rfc822" 8bit)
!     ("application/emacs-lisp" 8bit)
!     ("application/x-emacs-lisp" 8bit)
!     ("application/x-patch" 8bit)
      (".*" base64))
    "Alist of regexps that match MIME types and their encodings.
  If the encoding is `qp-or-base64', then either quoted-printable
! or base64 will be used, depending on what is more efficient."
    :type '(repeat (list (regexp :tag "MIME type")
                       (choice :tag "encoding"
                               (const 7bit)
--- 36,58 ----
    '(("text/x-patch" 8bit)
      ("text/.*" qp-or-base64)
      ("message/rfc822" 8bit)
!     ("application/emacs-lisp" qp-or-base64)
!     ("application/x-emacs-lisp" qp-or-base64)
!     ("application/x-patch" qp-or-base64)
      (".*" base64))
    "Alist of regexps that match MIME types and their encodings.
  If the encoding is `qp-or-base64', then either quoted-printable
! or base64 will be used, depending on what is more efficient.
! 
! `qp-or-base64' has another effect.  It will fold long lines so that
! MIME parts may not be broken by MTA.  So do `quoted-printable' and
! `base64'.
! 
! Note: It affects body encoding only when a part is a raw forwarded
! message (which will be made by `gnus-summary-mail-forward' with the
! arg 2 for example) or is neither the text/* type nor the message/*
! type.  Even though in those cases, you can use the `encoding' MML tag
! to specify encoding of non-ASCII MIME parts."
    :type '(repeat (list (regexp :tag "MIME type")
                       (choice :tag "encoding"
                               (const 7bit)
***************
*** 88,94 ****
  (defun mm-safer-encoding (encoding)
    "Return an encoding similar to ENCODING but safer than it."
    (cond
!    ((memq encoding '(7bit 8bit quoted-printable)) 'quoted-printable)
     ;; The remaining encodings are binary and base64 (and perhaps some
     ;; non-standard ones), which are both turned into base64.
     (t 'base64)))
--- 98,105 ----
  (defun mm-safer-encoding (encoding)
    "Return an encoding similar to ENCODING but safer than it."
    (cond
!    ((eq encoding '7bit) '7bit) ;; 7bit is considered safe.
!    ((memq encoding '(8bit quoted-printable)) 'quoted-printable)
     ;; The remaining encodings are binary and base64 (and perhaps some
     ;; non-standard ones), which are both turned into base64.
     (t 'base64)))