Mercurial > emacs
diff lisp/textmodes/flyspell.el @ 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 | f4a69fedbd46 |
children | 5c765f31d8e0 |
line wrap: on
line diff
--- 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:"))