(rmail-speedbar-buttons, rmail-speedbar-move-message-to-folder-on-line):

Use line-end-position.

2 files changed, 5 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d306ee58404..601061d6117 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,12 @@
 2009-01-30  Glenn Morris  <rgm@gnu.org>
 
         * 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  <streapadair@gmx.net>  (tiny change)
 
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 789ecd484d6..79c1c3095d3 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3857,9 +3857,7 @@ current message into that RMAIL folder."
               (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 @@ TOKEN and INDENT are not used."
   (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)))))