Mercurial > emacs
changeset 103027:25a15bc4c9bb
(rfc2047-decode-region): Don't skip past `start', which
could happen if the text is only composed of spaces and/or tabs.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 20 Apr 2009 16:17:51 +0000 |
| parents | 9265a8db20b3 |
| children | 15955ebb1aa7 |
| files | lisp/gnus/ChangeLog lisp/gnus/rfc2047.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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) ?\")))