projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
15dbf3b
)
Synch to No Gnus 200405280612.
author
yamaoka
<yamaoka>
Fri, 28 May 2004 06:13:18 +0000
(06:13 +0000)
committer
yamaoka
<yamaoka>
Fri, 28 May 2004 06:13:18 +0000
(06:13 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/mm-encode.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
f70a10d
..
af3c18d
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,7
@@
+2004-05-28 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * mm-encode.el (mm-safer-encoding): Consider 7bit is safe.
+
2004-05-27 Teodor Zlatanov <tzz@lifelogs.com>
* assistant.el (assistant-render-text): trying to add a :set
2004-05-27 Teodor Zlatanov <tzz@lifelogs.com>
* assistant.el (assistant-render-text): trying to add a :set
diff --git
a/lisp/mm-encode.el
b/lisp/mm-encode.el
index
cb17414
..
f0b8aef
100644
(file)
--- a/
lisp/mm-encode.el
+++ b/
lisp/mm-encode.el
@@
-1,5
+1,5
@@
;;; mm-encode.el --- Functions for encoding MIME things
;;; mm-encode.el --- Functions for encoding MIME things
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-88,7
+88,8
@@
This variable should never be set directly, but bound before a call to
(defun mm-safer-encoding (encoding)
"Return an encoding similar to ENCODING but safer than it."
(cond
(defun mm-safer-encoding (encoding)
"Return an encoding similar to ENCODING but safer than it."
(cond
- ((memq encoding '(7bit 8bit quoted-printable)) 'quoted-printable)
+ ((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)))
;; The remaining encodings are binary and base64 (and perhaps some
;; non-standard ones), which are both turned into base64.
(t 'base64)))