[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
flyspell.el patch
From: |
Lars Magne Ingebrigtsen |
Subject: |
flyspell.el patch |
Date: |
Thu, 16 Oct 2003 18:09:42 +0200 |
User-agent: |
Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux) |
The following patch fixes the in-headers predicated -- if
mail-header-separator is "", it was true on most bodies as well.
Reversing the logic (kinda) should do the trick...
*** flyspell.el.~1.47.~ Thu Oct 16 17:21:41 2003
--- flyspell.el Thu Oct 16 18:07:35 2003
***************
*** 267,273 ****
(defun mail-mode-flyspell-verify ()
"This function is used for `flyspell-generic-check-word-p' in Mail mode."
(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
--- 267,273 ----
(defun mail-mode-flyspell-verify ()
"This function is used for `flyspell-generic-check-word-p' in Mail mode."
(let ((in-headers (save-excursion
! (not (re-search-backward mail-header-separator nil t))))
(in-signature (save-excursion
(re-search-backward message-signature-separator nil
t))))
(cond (in-headers
--
(domestic pets only, the antidote for overdose, milk.)
address@hidden * Lars Magne Ingebrigtsen
- flyspell.el patch,
Lars Magne Ingebrigtsen <=