[Emacs-diffs] emacs/lisp/gnus ChangeLog rfc2047.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/04/20 16:17:53

Modified files:
        lisp/gnus      : ChangeLog rfc2047.el 

Log message:
        (rfc2047-decode-region): Don't skip past `start', which
        could happen if the text is only composed of spaces and/or tabs.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.805&r2=1.806
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/rfc2047.el?cvsroot=emacs&r1=1.44&r2=1.45

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.805
retrieving revision 1.806
diff -u -b -r1.805 -r1.806
--- ChangeLog   3 Mar 2009 10:18:45 -0000       1.805
+++ ChangeLog   20 Apr 2009 16:17:51 -0000      1.806
@@ -1,3 +1,8 @@
+2009-04-20  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>  (tiny change)
 
        * gnus-draft.el (gnus-draft-send): Bind gnus-message-setup-hook to nil

Index: rfc2047.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/rfc2047.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- rfc2047.el  5 Jan 2009 03:22:17 -0000       1.44
+++ rfc2047.el  20 Apr 2009 16:17:52 -0000      1.45
@@ -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) ?\")))