2000-10-28 03:38:39 ShengHuo ZHU <zsh@cs.rochester.edu>

	* rfc2047.el (rfc2047-encode-message-header): Make sure no
	unencoded stuff in the header.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1556a3..6fada7a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-28 03:38:39  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * rfc2047.el (rfc2047-encode-message-header): Make sure no
+       unencoded stuff in the header.
+
 2000-10-28 02:40:46  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-group.el (gnus-group-listed-groups): New variable.

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index cdf0269..770e403 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -144,6 +144,14 @@ Should be called narrowed to the head of the message."
                       mail-parse-charset)
                  (mm-encode-coding-region (point-min) (point-max) 
                                           mail-parse-charset)))
+            ((null method)
+             (and (delq 'ascii 
+                        (mm-find-charset-region (point-min) 
+                                                (point-max)))
+                  (if (y-or-n-p 
+                       "Some texts are not encoded. Encode them anyway?")
+                      (rfc2047-encode-region (point-min) (point-max))
+                    (error "Cannot send unencoded text."))))
             ((mm-coding-system-p method)
              (if (featurep 'mule)
                  (mm-encode-coding-region (point-min) (point-max) method)))