Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
95897:d87b6172ad66 | 95898:22320e063151 |
---|---|
304 (concat "^" | 304 (concat "^" |
305 (regexp-quote mail-header-separator) | 305 (regexp-quote mail-header-separator) |
306 "$") | 306 "$") |
307 nil t) | 307 nil t) |
308 (point))) | 308 (point))) |
309 (signature-begin (save-excursion | 309 (signature-begin |
310 (goto-char (point-max)) | 310 (if (not (boundp 'message-signature-separator)) |
311 (re-search-backward message-signature-separator | 311 (point-max) |
312 nil t) | 312 (save-excursion |
313 (point)))) | 313 (goto-char (point-max)) |
314 (re-search-backward message-signature-separator nil t) | |
315 (point))))) | |
314 (cond ((< (point) header-end) | 316 (cond ((< (point) header-end) |
315 (and (save-excursion (beginning-of-line) | 317 (and (save-excursion (beginning-of-line) |
316 (looking-at "^Subject:")) | 318 (looking-at "^Subject:")) |
317 (> (point) (match-end 0)))) | 319 (> (point) (match-end 0)))) |
318 ((> (point) signature-begin) | 320 ((> (point) signature-begin) |