From: Stefan Monnier Date: Mon, 20 Apr 2009 16:17:51 +0000 (+0000) Subject: (rfc2047-decode-region): Don't skip past `start', which X-Git-Tag: emacs-pretest-23.0.93~87 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1dbc941a599ebcdc779992453207e1f61f450bd6;p=emacs.git (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 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) ?\")))