# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1240244271 0
# Node ID 25a15bc4c9bbaeda963e34f4456a20e2ebac078b
# Parent  9265a8db20b3c4b1e6ed1e1b6a80cf92638d66a2
(rfc2047-decode-region): Don't skip past `start', which
could happen if the text is only composed of spaces and/or tabs.

diff -r 9265a8db20b3 -r 25a15bc4c9bb lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Mon Apr 20 03:19:19 2009 +0000
+++ b/lisp/gnus/ChangeLog	Mon Apr 20 16:17:51 2009 +0000
@@ -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 -r 9265a8db20b3 -r 25a15bc4c9bb lisp/gnus/rfc2047.el
--- a/lisp/gnus/rfc2047.el	Mon Apr 20 03:19:19 2009 +0000
+++ b/lisp/gnus/rfc2047.el	Mon Apr 20 16:17:51 2009 +0000
@@ -1045,7 +1045,7 @@
 		(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) ?\")))