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

Use line-end-position.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d306ee584046884e469884dc9e97a20a1fbef2bf..601061d6117e5c439a5c9820abe67007d2e8c219 100644 (file)
--- 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 789ecd484d6ae9f178899d98f7fdf1a8c3d1a641..79c1c3095d33eb9739a57288943f5c049f258b69 100644 (file)
--- 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)))))