(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 d0a9a7209f0b4fce60dbade4c9ae2bbadd168abd..82cd077d0db93427161047cb600753c9910fa655 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 6b774644102ec7bf36493ce64461bacb58358573..c0bdec3c0253248f27efd65acf2d17c88cbd3d9c 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) ?\")))