diff options
| author | Miles Bader | 2004-12-29 16:01:49 +0000 |
|---|---|---|
| committer | Miles Bader | 2004-12-29 16:01:49 +0000 |
| commit | 2f7717f601c768019ee2a73a7f3535c5de74512b (patch) | |
| tree | d2a1638b933c30b2598ffb94e2685917a34055a3 | |
| parent | f4b483aa362dcb2b1ebc821eec258022bc4d6fa3 (diff) | |
| download | emacs-2f7717f601c768019ee2a73a7f3535c5de74512b.tar.gz emacs-2f7717f601c768019ee2a73a7f3535c5de74512b.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-754
Merge from gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-81
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-82
Update from CVS
2004-12-27 Simon Josefsson <jas@extundo.com>
* lisp/gnus/mm-bodies.el (mm-body-encoding): Don't permit 7-bit to be used
when mm-use-ultra-safe-encoding is enabled (e.g., for PGP/MIME)
and we have trailing white space. Reported by Werner Koch
<wk@gnupg.org>.
| -rw-r--r-- | lisp/gnus/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/gnus/mm-bodies.el | 5 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index fd541fed5aa..46a1449ce79 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2004-12-27 Simon Josefsson <jas@extundo.com> | ||
| 2 | |||
| 3 | * mm-bodies.el (mm-body-encoding): Don't permit 7-bit to be used | ||
| 4 | when mm-use-ultra-safe-encoding is enabled (e.g., for PGP/MIME) | ||
| 5 | and we have trailing white space. Reported by Werner Koch | ||
| 6 | <wk@gnupg.org>. | ||
| 7 | |||
| 1 | 2004-12-17 Kim F. Storm <storm@cua.dk> | 8 | 2004-12-17 Kim F. Storm <storm@cua.dk> |
| 2 | 9 | ||
| 3 | * gnus-group.el (gnus-group-mode-map): Map follow-link to mouse-face. | 10 | * gnus-group.el (gnus-group-mode-map): Map follow-link to mouse-face. |
diff --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el index b3148fe04ac..a1d67cf1f93 100644 --- a/lisp/gnus/mm-bodies.el +++ b/lisp/gnus/mm-bodies.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mm-bodies.el --- Functions for decoding MIME things | 1 | ;;; mm-bodies.el --- Functions for decoding MIME things |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2003 | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
| @@ -139,7 +139,8 @@ If no encoding was done, nil is returned." | |||
| 139 | (cond | 139 | (cond |
| 140 | ((and (not longp) | 140 | ((and (not longp) |
| 141 | (not (and mm-use-ultra-safe-encoding | 141 | (not (and mm-use-ultra-safe-encoding |
| 142 | (save-excursion (re-search-forward "^From " nil t)))) | 142 | (or (save-excursion (re-search-forward " $" nil t)) |
| 143 | (save-excursion (re-search-forward "^From " nil t))))) | ||
| 143 | (eq bits '7bit)) | 144 | (eq bits '7bit)) |
| 144 | bits) | 145 | bits) |
| 145 | ((and (not mm-use-ultra-safe-encoding) | 146 | ((and (not mm-use-ultra-safe-encoding) |