From e3a79db70575cb7d40a8cf4095b695fe093a7447 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 1 Nov 2002 12:33:16 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 23 ++++++++++++++--------- lisp/mm-bodies.el | 1 + 2 files changed, 15 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fce8c8c..6dcee41 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 94b2c41..e672e33 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))) -- 1.7.10.4