2001-07-15 Pavel Jan\e,Bm\e(Bk <Pavel@Janik.cz>

[gnus] / lisp / rfc2047.el

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index e553f25..4b8cff9 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -141,6 +141,8 @@ Should be called narrowed to the head of the message."
                (rfc2047-fold-region (save-excursion
                                       (goto-char (point-min))
                                       (skip-chars-forward "^:")
+                                      (and (looking-at ": ")
+                                           (forward-char 2))
                                       (point)) (point-max)))
            ;; We found something that may perhaps be encoded.
            (setq method nil
@@ -174,7 +176,7 @@ Should be called narrowed to the head of the message."
                            (y-or-n-p
                             "Some texts are not encoded. Encode anyway?")))
                       (rfc2047-encode-region (point-min) (point-max))
-                    (error "Cannot send unencoded text."))))
+                    (error "Cannot send unencoded text"))))
             ((mm-coding-system-p method)
              (if (and (featurep 'mule)
                       (if (boundp 'default-enable-multibyte-characters)