(rfc2047-decode-region): Don't skip past `start', which

could happen if the text is only composed of spaces and/or tabs.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index d0a9a72..82cd077 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * rfc2047.el (rfc2047-decode-region): Don't skip past `start', which
+       could happen if the text is only composed of spaces and/or tabs.
+
 2009-03-03  Brian Sniffen  <bts@evenmere.org>  (tiny change)
 
        * gnus-draft.el (gnus-draft-send): Bind gnus-message-setup-hook to nil

diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index 6b77464..c0bdec3 100644 (file)
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -1045,7 +1045,7 @@ other than `\"' and `\\' in quoted strings."
                (setq start (point))
                (setq quoted (eq (char-after) ?\"))
                (goto-char (point-max))
-               (skip-chars-backward " \t")
+               (skip-chars-backward " \t" start)
                (if (setq quoted (and quoted
                                      (> (point) (1+ start))
                                      (eq (char-before) ?\")))