Mercurial > emacs
changeset 101667:ecf38b9f654d
(rmail-speedbar-buttons, rmail-speedbar-move-message-to-folder-on-line):
Use line-end-position.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 30 Jan 2009 07:23:01 +0000 |
| parents | 4c9b7acbd8b4 |
| children | 1862311ef4a1 |
| files | lisp/ChangeLog lisp/mail/rmail.el |
| diffstat | 2 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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)))))