From 10d6f612585035c6322884589ce5718c85e3474c Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 1 Nov 2002 12:38:01 +0000 Subject: [PATCH] A patch by courtesy of Jesper Harder. (mm-body-encoding): Don't return 8bit for 7bit charset. --- lisp/ChangeLog | 23 ++++++++++++++--------- lisp/mm-bodies.el | 1 + 2 files changed, 15 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fce8c8c7a..6dcee4151 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-11-01 Jesper Harder + + * mm-bodies.el (mm-body-encoding): Don't return 8bit for 7bit + charset. + 2002-10-31 Kai Gro,A_(Bjohann * gnus-util.el (gnus-user-date-format-alist): Clarify and correct @@ -5,8 +10,8 @@ 2002-10-28 Kai Gro,A_(Bjohann - * gnus-agent.el (gnus-agent-fetched-headers) - (gnus-agent-load-fetched-headers) + * gnus-agent.el (gnus-agent-fetched-headers) + (gnus-agent-load-fetched-headers) (gnus-agent-save-fetched-headers): Remove variable and two functions. Kevin Greiner's version of gnus-agent-fetch-headers works better. @@ -117,7 +122,7 @@ * lpath.el: Remove useless bindings. -2002-10-22 Jesper harder +2002-10-22 Jesper Harder * gnus-sum.el (gnus-summary-execute-command): Disable visual features while searching. @@ -301,7 +306,7 @@ (puthash): Alias to cl-puthash for Emacs 20. (with-syntax-table): New macro for Emacs 20. -2002-10-12 Jesper harder +2002-10-12 Jesper Harder * gnus-spec.el (gnus-pad-form): Use gnus-string-width-function. @@ -330,7 +335,7 @@ * message.el: Autoload gnus-delay-article. -2002-10-11 Jesper harder +2002-10-11 Jesper Harder * gnus-spec.el (gnus-balloon-face-function): Use the help-echo text property in Emacs. @@ -974,7 +979,7 @@ * nnmail.el (nnmail-cache-fetch-group): Don't return "" (empty string) as group name in case we have a CRLF in the file. -2002-09-04 Jesper harder +2002-09-04 Jesper Harder * rfc1843.el (rfc1843-decode-loosely): Move to mime customization group. @@ -1014,7 +1019,7 @@ * gnus-group.el (gnus-group-fetch-control): Fix typo in last commit. From Reiner Steib <4uce.02.r.steib@gmx.net>. -2002-08-26 Jesper harder +2002-08-26 Jesper Harder * gnus.el (gnus-group-charter-alist): New option. (gnus-group-fetch-control-use-browse-url): New option. @@ -1028,7 +1033,7 @@ * gnus-mlspl.el (gnus-group-split-fancy): Doc fix. From Alex Schroeder . -2002-08-29 Jesper harder +2002-08-29 Jesper Harder * gnus-group.el (gnus-group-make-menu-bar): Add ellipses to menu items expecting user interaction. @@ -1173,7 +1178,7 @@ When Emacs is restarted, Custom makes sure this is set, but during the same session we must set it manually. -2002-08-07 Jesper harder +2002-08-07 Jesper Harder * yenc.el: New file. diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el index 94b2c4143..e672e337a 100644 --- a/lisp/mm-bodies.el +++ b/lisp/mm-bodies.el @@ -143,6 +143,7 @@ If no encoding was done, nil is returned." bits) ((and (not mm-use-ultra-safe-encoding) (not longp) + (not (eq '7bit (cdr (assq charset mm-body-charset-encoding-alist)))) (or (eq t (cdr message-posting-charset)) (memq charset (cdr message-posting-charset)) (eq charset mail-parse-charset))) -- 2.25.1