File emacs-24.3-flyspell.patch of Package emacs

Overview Repositories Revisions Requests Users Attributes Meta

File emacs-24.3-flyspell.patch of Package emacs

--- lisp/textmodes/flyspell.el
+++ lisp/textmodes/flyspell.el	2009-08-11 12:54:35.749901460 +0000
@@ -284,6 +284,12 @@ If this variable is nil, all regions are
   "The key binding for flyspell auto correction."
   :group 'flyspell)
 
+(defvar flyspell-signature-separator
+  (if (boundp 'message-signature-separator)
+       message-signature-separator
+     "^-- $")
+  "*String used to recognize .signatures.")
+
 ;;*---------------------------------------------------------------------*/
 ;;*    Mode specific options                                            */
 ;;*    -------------------------------------------------------------    */
@@ -307,7 +313,6 @@ property of the major mode name.")
 ;;*--- mail mode -------------------------------------------------------*/
 (put 'mail-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
 (put 'message-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
-(defvar message-signature-separator)
 (defun mail-mode-flyspell-verify ()
   "Function used for `flyspell-generic-check-word-predicate' in Mail mode."
   (let ((header-end (save-excursion
@@ -319,11 +324,11 @@ property of the major mode name.")
 		       nil t)
 		      (point)))
 	(signature-begin
-         (if (not (boundp 'message-signature-separator))
+         (if (not (boundp 'flyspell-signature-separator))
              (point-max)
            (save-excursion
              (goto-char (point-max))
-             (re-search-backward message-signature-separator nil t)
+             (re-search-backward flyspell-signature-separator nil t)
              (point)))))
     (cond ((< (point) header-end)
 	   (and (save-excursion (beginning-of-line)

Places

File emacs-24.3-flyspell.patch of Package emacs

Places