# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1233300181 0
# Node ID ecf38b9f654dea3f892998dc555efe176dd9476c
# Parent  4c9b7acbd8b492f89eafe8044c6874c82a92a13a
(rmail-speedbar-buttons, rmail-speedbar-move-message-to-folder-on-line):
Use line-end-position.

diff -r 4c9b7acbd8b4 -r ecf38b9f654d lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jan 30 07:20:58 2009 +0000
+++ b/lisp/ChangeLog	Fri Jan 30 07:23:01 2009 +0000
@@ -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 -r 4c9b7acbd8b4 -r ecf38b9f654d lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Jan 30 07:20:58 2009 +0000
+++ b/lisp/mail/rmail.el	Fri Jan 30 07:23:01 2009 +0000
@@ -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)))))