From 1dbc941a599ebcdc779992453207e1f61f450bd6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 20 Apr 2009 16:17:51 +0000 Subject: [PATCH] (rfc2047-decode-region): Don't skip past `start', which could happen if the text is only composed of spaces and/or tabs. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/rfc2047.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index d0a9a7209f0..82cd077d0db 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2009-04-20 Stefan Monnier + + * 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 (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 6b774644102..c0bdec3c025 100644 --- 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) ?\"))) -- 2.39.2