mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source 
Use line-end-position.
This commit is contained in:
Glenn Morris 2009-01-30 07:23:01 +00:00
parent 98a9d488a3
commit 4ddca2c57f
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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)

6
lisp/mail/rmail.el
View File

@ -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)))))