emacs-devel
[Top][All Lists]
Advanced

[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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]