Lines Matching defs:message
52 ;; (add-hook 'news-inews-hook 'ispell-message)
53 ;; (add-hook 'mail-send-hook 'ispell-message)
54 ;; (add-hook 'mh-before-send-letter-hook 'ispell-message)
67 ;; ispell-message
117 ;; `ispell-message' contains some custom skipping code for e-mail messages.
136 ;; Fixed bug where message-text-end is inside a mime skipped region.
145 ;; New feature: MIME mail message support, Fcc support.
198 ;; Improved message reference matching in `ispell-message'.
333 (defcustom ispell-message-dictionary-alist nil
334 "*List used by `ispell-message' to select a new dictionary.
336 in the message headers, `ispell-local-dictionary' will be set to
345 (defcustom ispell-message-fcc-skip 50000
346 "*Query before saving Fcc message copy if attachment larger than this value.
347 Always stores Fcc copy of message when nil."
405 nil Expand the minibuffer and display a short help message
407 t Pop up a new buffer and display a short help message there
409 electric Pop up a new buffer and display a long help message there.
787 (message "%s" result))
1106 (define-key ispell-menu-map [ispell-message]
1107 '(menu-item "Spell-Check Message" ispell-message
1109 :help "Skip headers and included message text"))
1127 ["Check Message" ispell-message t]
1296 (defvar ispell-checking-message nil
1297 "Non-nil when we're checking a mail message.
1612 (message "Checking spelling of %s..."
1628 (message "%s is correct"
1636 (message "%s is correct because of root %s"
1643 ((null poss) (message "Error in ispell process"))
1651 (message "%s is incorrect"
1776 (message "Personal dictionary saved."))))
1881 (let (message-log-max)
1882 (message (concat "C-h or ? for more options; SPC to leave "
1938 (message "Exited spell-checking")
1944 (message "%s"
1954 (setq ispell-quit (or (not ispell-checking-message)
2022 (message "Only one recursive edit session supported")
2031 (message
2175 (message nil)
2206 (message "Starting \"%s\" process..." (file-name-nondirectory prog))
2439 (ding) ; error message from ispell!
2440 (message "Ispell error: %s" output)
2538 (message "Starting new Ispell process [%s] ..."
2573 ;; Otherwise, it must be an error message. Show the user.
2607 (message "Ispell process killed")
2634 (message "Using %s dictionary"
2643 (message "No change, using %s dictionary" dict)))
2655 (message "%s Ispell dictionary set to %s"
2686 (message "Spell checking %s using %s with %s dictionary..."
2698 (let (message-log-max)
2699 (message "searching for regions to skip"))
2706 (let (message-log-max)
2707 (message "Continuing spelling check using %s with %s dictionary..."
2727 ;; Can change skip-regexps (in ispell-message)
2777 (if (and ispell-checking-message (numberp ispell-quit))
2785 (message "Spell-checking using %s with %s dictionary done"
2819 (if (and ispell-checking-message
2820 (not (eq t ispell-checking-message)))
2823 ispell-checking-message
2862 `ispell-html-skip-alists', and `ispell-checking-message'.
2875 (if (and ispell-checking-message
2876 (not (eq t ispell-checking-message)))
2877 (setq skip-alist (append ispell-checking-message skip-alist)))
2888 (message "error skipping s-expressions at point %d." (point))
2894 "Deletes the Fcc: message header when large attachments are included.
2899 (if (and ispell-checking-message ispell-message-fcc-skip)
2900 (if (< ispell-message-fcc-skip (- end start))
2912 "Save copy of this message with large attachments? ")
2966 (message "Matching region end for `%s' point %d not found"
3136 (let (message-log-max)
3137 (message "Continuing spelling check using %s with %s dictionary..."
3189 (message "No session to continue. Use 'X' command when checking!")
3191 (message "Must continue ispell from buffer %s"
3236 (message "No word to complete"))
3238 (message "No match for \"%s\"" word))
3359 (defvar ispell-message-text-end
3379 "*End of text which will be checked in `ispell-message'.
3382 (put 'ispell-message-text-end 'risky-local-variable t)
3386 "Return multipart message start boundary or nil if none."
3410 "Moves point across header, or entire MIME part if message is encoded.
3413 If no boundary is given, then entire message is skipped.
3417 This places new MIME boundaries into variable `ispell-checking-message'."
3452 (setq ispell-checking-message
3455 (if (eq t ispell-checking-message) nil
3456 ispell-checking-message))
3469 ;; encoded message. Skip to boundary, or entire message.
3478 (defun ispell-message ()
3479 "Check the spelling of a mail message or news post.
3480 Don't check spelling of message headers except the Subject field.
3483 To abort spell checking of a message region and send the message anyway,
3485 The `X' command aborts the message send so that you can edit the buffer.
3487 To spell-check whenever a message is sent, include the appropriate lines
3489 (add-hook 'message-send-hook 'ispell-message) ;; GNUS 5
3490 (add-hook 'news-inews-hook 'ispell-message) ;; GNUS 4
3491 (add-hook 'mail-send-hook 'ispell-message)
3492 (add-hook 'mh-before-send-letter-hook 'ispell-message)
3496 (function (lambda () (local-set-key \"\\C-ci\" 'ispell-message)))"
3502 ;; Nil when message came from outside (eg calling emacs as editor)
3514 ((not ispell-message-text-end) (point-max))
3515 ((char-or-string-p ispell-message-text-end)
3516 (if (re-search-forward ispell-message-text-end nil t)
3519 (t (min (point-max) (funcall ispell-message-text-end))))))
3535 (equal major-mode 'message-mode)) ;GNUS 5
3538 (with-no-warnings message-cite-prefix-regexp)
3541 ((equal major-mode 'mh-letter-mode) ; mh mail message
3545 ((not internal-messagep) ; Assume nn sent us this message.
3549 ((boundp 'vm-included-text-prefix) ; VM mail message
3558 (dictionary-alist ispell-message-dictionary-alist)
3559 (ispell-checking-message t))
3561 ;; Select dictionary for message
3595 ;; Adjust message limit to MIME message if necessary.
3602 ;; Select type or skip checking if this is a non-multipart message
3610 ;; if message-text-end region, limit may be less than point.
3618 (setq ispell-checking-message
3691 (t (message "Invalid Ispell Parsing argument!")