[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/30 07:23:05

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

Log message:
        (rmail-speedbar-buttons, rmail-speedbar-move-message-to-folder-on-line):
        Use line-end-position.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15215&r2=1.15216
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.480&r2=1.481

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15215
retrieving revision 1.15216
diff -u -b -r1.15215 -r1.15216
--- ChangeLog   30 Jan 2009 03:47:35 -0000      1.15215
+++ ChangeLog   30 Jan 2009 07:23:01 -0000      1.15216
@@ -1,9 +1,12 @@
 2009-01-30  Glenn Morris  <address@hidden>
 
        * mail/rmail.el (rmail-reply): Handle empty folders.
+       (rmail-speedbar-buttons)
+       (rmail-speedbar-move-message-to-folder-on-line): Use line-end-position.
 
        * mail/rmailsum.el (rmail-summary-update-line): Replace duplicate
        line-beginning-position calls.
+       (rmail-header-summary): Use line-end-position.
 
 2009-01-30  Toby Speight  <address@hidden>  (tiny change)
 

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.480
retrieving revision 1.481
diff -u -b -r1.480 -r1.481
--- mail/rmail.el       30 Jan 2009 03:46:31 -0000      1.480
+++ mail/rmail.el       30 Jan 2009 07:23:05 -0000      1.481
@@ -3857,9 +3857,7 @@
              (setq from t)))
       (if from
          nil
-       (setq from (buffer-substring (point) (save-excursion
-                                              (end-of-line)
-                                              (point))))))
+       (setq from (buffer-substring (point) (line-end-position)))))
     (goto-char (point-min))
     (if (and (looking-at "Reply to:")
             (equal from rmail-speedbar-last-user))
@@ -3900,7 +3898,7 @@
   (interactive)
   (save-excursion
     (beginning-of-line)
-    (if (re-search-forward "<M> " (save-excursion (end-of-line) (point)) t)
+    (if (re-search-forward "<M> " (line-end-position) t)
        (progn
          (forward-char -2)
          (speedbar-do-function-pointer)))))