(rfc2047-encode-message-header): Don't encode non-address

headers as address headers (which breaks if subject has a single ").

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ac1bad7e3ab4b370a30ec66b451eae5f63985401..e2cea8301ec64cf05ec9cde10771ce662426f4b1 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * rfc2047.el (rfc2047-encode-message-header): Don't encode non-address
+       headers as address headers (which breaks if subject has a single ").
+
 2004-05-06  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * nnimap.el (nnimap-demule): Avoid string-as-multibyte.

diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index 7c93160c455b427716e4cfdaf6be64e9ec8c5b1a..f355ac8bbb413401f07f5f8320e7e32b3e765d67 100644 (file)
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -1,5 +1,5 @@
 ;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages
-;; Copyright (C) 1998, 1999, 2000, 2002, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 1998,1999,2000,02,03,2004  Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;;     MORIOKA Tomohiko <morioka@jaist.ac.jp>
@@ -169,7 +169,7 @@ Should be called narrowed to the head of the message."
             ((eq method 'address-mime)
              (rfc2047-encode-region (point) (point-max)))
             ((eq method 'mime)
-             (let (rfc2047-encoding-type)
+             (let ((rfc2047-encoding-type method))
                (rfc2047-encode-region (point) (point-max))))
             ((eq method 'default)
              (if (and (featurep 'mule)