From 4ddca2c57f4fe672c84bdf4ad8028a1689da4ab0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 30 Jan 2009 07:23:01 +0000 Subject: [PATCH] (rmail-speedbar-buttons, rmail-speedbar-move-message-to-folder-on-line): Use line-end-position. --- lisp/ChangeLog | 3 +++ lisp/mail/rmail.el | 6 ++---- 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 * 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 (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 " " (save-excursion (end-of-line) (point)) t) + (if (re-search-forward " " (line-end-position) t) (progn (forward-char -2) (speedbar-do-function-pointer))))) -- 2.11.4.GIT