mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(mail-mode-flyspell-verify): Spell-check

Browse Source 
in Subject line.
This commit is contained in:
Gerd Moellmann 2000-12-29 15:14:51 +00:00
parent 2c79b73234
commit 53287eb034
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/textmodes/flyspell.el
View File

@ -229,12 +229,20 @@ property of the major mode name.")
(put 'message-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
(defun mail-mode-flyspell-verify ()
"This function is used for `flyspell-generic-check-word-p' in Mail mode."
(save-excursion
(not (or (re-search-forward mail-header-separator nil t)
(re-search-backward message-signature-separator nil t)
(progn
(beginning-of-line)
(looking-at "[>}|]\\To:"))))))
(let ((in-headers (save-excursion
(re-search-forward mail-header-separator nil t)))
(in-signature (save-excursion
(re-search-backward message-signature-separator nil t))))
(cond (in-headers
(save-excursion
(beginning-of-line)
(looking-at "^Subject:")))
(in-signature
nil)
(t
(save-excursion
(beginning-of-line)
(not (looking-at "[>}|]\\To:")))))))
;*--- texinfo mode ----------------------------------------------------*/
(put 'texinfo-mode 'flyspell-mode-predicate 'texinfo-mode-flyspell-verify)