Mercurial > emacs
changeset 95898:22320e063151
(mail-mode-flyspell-verify):
Check message-signature-separator exists before using it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 13 Jun 2008 15:15:32 +0000 |
| parents | d87b6172ad66 |
| children | d5d7186027e2 |
| files | lisp/ChangeLog lisp/textmodes/flyspell.el |
| diffstat | 2 files changed, 16 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jun 13 14:52:13 2008 +0000 +++ b/lisp/ChangeLog Fri Jun 13 15:15:32 2008 +0000 @@ -1,17 +1,22 @@ +2008-06-13 David Reitter <david.reitter@gmail.com> + + * textmodes/flyspell.el (mail-mode-flyspell-verify): + Check message-signature-separator exists before using it. + 2008-06-13 Dan Nicolaescu <dann@ics.uci.edu> * vc.el (vc-delete-file): Bind default-directory before calling the backend. (vc-annotate-show-diff-revision-at-line): Move most of the code to ... - (vc-annotate-show-diff-revision-at-line-internal): ... here. New - function. + (vc-annotate-show-diff-revision-at-line-internal): ... here. + New function. (vc-annotate-show-changeset-diff-revision-at-line): New function. (vc-annotate-mode-menu): Bind it. 2008-06-13 Jason Rumney <jasonr@gnu.org> - * term/w32-win.el (mouse-set-font): Remove overridden function. - (w32-select-font): Declare as obsolete alias for x-select-font. + * term/w32-win.el (mouse-set-font): Remove overridden function. + (w32-select-font): Declare as obsolete alias for x-select-font. 2008-06-13 Daniel Engeler <engeler@gmail.com>
--- a/lisp/textmodes/flyspell.el Fri Jun 13 14:52:13 2008 +0000 +++ b/lisp/textmodes/flyspell.el Fri Jun 13 15:15:32 2008 +0000 @@ -306,11 +306,13 @@ "$") nil t) (point))) - (signature-begin (save-excursion - (goto-char (point-max)) - (re-search-backward message-signature-separator - nil t) - (point)))) + (signature-begin + (if (not (boundp 'message-signature-separator)) + (point-max) + (save-excursion + (goto-char (point-max)) + (re-search-backward message-signature-separator nil t) + (point))))) (cond ((< (point) header-end) (and (save-excursion (beginning-of-line) (looking-at "^Subject:"))