diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/rfc2047.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ac1bad7e3ab..e2cea8301ec 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2004-05-07 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * rfc2047.el (rfc2047-encode-message-header): Don't encode non-address | ||
| 4 | headers as address headers (which breaks if subject has a single "). | ||
| 5 | |||
| 1 | 2004-05-06 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2004-05-06 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | * nnimap.el (nnimap-demule): Avoid string-as-multibyte. | 8 | * nnimap.el (nnimap-demule): Avoid string-as-multibyte. |
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el index 7c93160c455..f355ac8bbb4 100644 --- a/lisp/gnus/rfc2047.el +++ b/lisp/gnus/rfc2047.el | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | ;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages | 1 | ;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages |
| 2 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003 Free Software Foundation, Inc. | 2 | ;; Copyright (C) 1998,1999,2000,02,03,2004 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 4 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 5 | ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> | 5 | ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> |
| @@ -169,7 +169,7 @@ Should be called narrowed to the head of the message." | |||
| 169 | ((eq method 'address-mime) | 169 | ((eq method 'address-mime) |
| 170 | (rfc2047-encode-region (point) (point-max))) | 170 | (rfc2047-encode-region (point) (point-max))) |
| 171 | ((eq method 'mime) | 171 | ((eq method 'mime) |
| 172 | (let (rfc2047-encoding-type) | 172 | (let ((rfc2047-encoding-type method)) |
| 173 | (rfc2047-encode-region (point) (point-max)))) | 173 | (rfc2047-encode-region (point) (point-max)))) |
| 174 | ((eq method 'default) | 174 | ((eq method 'default) |
| 175 | (if (and (featurep 'mule) | 175 | (if (and (featurep 'mule) |