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