Lines Matching +defs:split +defs:regexp
43 ;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better
157 :type 'regexp)
260 (custom-split-regexp-maybe value))
264 regexp))
272 :type 'regexp)
275 "*Header lines matching this regexp will be deleted before posting.
281 (custom-split-regexp-maybe value))
285 regexp))
287 (defcustom message-subject-re-regexp
292 :type 'regexp)
300 `message-subject-trailing-was-ask-regexp'. If
302 old subject. In this case, `message-subject-trailing-was-regexp' is
311 (defcustom message-subject-trailing-was-ask-regexp
315 The function `message-strip-subject-trailing-was' uses this regexp if
318 `message-subject-trailing-was-regexp' instead.
324 :type 'regexp)
326 (defcustom message-subject-trailing-was-regexp
331 matched against `message-subject-trailing-was-regexp' in
332 `message-strip-subject-trailing-was'. You should use a regexp creating very
337 :type 'regexp)
417 :type 'regexp
550 "*All headers that match this regexp will be deleted when resending a message."
554 (custom-split-regexp-maybe value))
558 regexp))
561 "*All headers that match this regexp will be deleted when forwarding a message."
565 (custom-split-regexp-maybe value))
569 regexp))
575 :type 'regexp)
577 (defcustom message-cite-prefix-regexp
599 :type 'regexp)
727 :type '(repeat regexp))
884 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
892 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
1001 :valid-regexp "^\\'"
1104 "*A regexp specifying addresses to prune when doing wide replies.
1110 regexp))
1135 :type '(repeat regexp))
1288 (defun message-font-lock-make-header-matcher (regexp)
1296 (concat "^" (regexp-quote mail-header-separator) "$")
1301 (re-search-forward ,regexp limit t))))))
1334 `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")
1339 message-cite-prefix-regexp
1421 regexp))
1516 (let ((time-zone-regexp
1541 ;; The following regexp rejects names whose first characters are
1553 time-zone-regexp
1559 time-zone-regexp
1576 "A regexp that matches the separator before the text of a failed message.")
1603 "The regexp of bogus system names.")
1605 (defcustom message-valid-fqdn-regexp
1619 ;; see also: gnus-button-valid-fqdn-regexp
1622 :type 'regexp)
1683 (let ((regexp (format "[%s]+" (or separator ",")))
1697 (and (looking-at regexp)
1765 (unless (re-search-forward (concat "^" (regexp-quote hclean) ":") nil t)
1793 (let ((regexp (if (stringp gnus-list-identifiers)
1796 (if (string-match (concat "\\(\\(\\(Re: +\\)?\\(" regexp
1807 (if (string-match message-subject-re-regexp subject)
1912 message-subject-trailing-was-ask-regexp
1913 message-subject-trailing-was-regexp)
1955 (regexp-quote new-subject)
2027 (regexp-quote (concat "," message-cross-post-old-target))
2039 (not (string-match (regexp-quote target-group)
2068 (concat "^" (regexp-quote message-cross-post-note) ".*")
2073 (concat "^" (regexp-quote message-followup-to-note) ".*")
2102 (regexp-quote target-group)
2110 (regexp-quote target-group)
2152 (defun message-remove-header (header &optional is-regexp first reverse)
2158 (let ((regexp (if is-regexp header (concat "^" (regexp-quote header) ":")))
2165 (not (looking-at regexp))
2166 (looking-at regexp))
2189 (regexp (concat "^" (regexp-quote header) ":")))
2192 (while (re-search-forward regexp nil t)
2204 (concat "^" (regexp-quote mail-header-separator) "\n") nil t)
2230 (regexp-quote mail-header-separator)
2395 (define-key message-mode-map [remap split-line] 'message-split-line)
2642 (concat "^" (regexp-quote message-yank-prefix) "[ \t]*")))
2676 (make-local-variable 'adaptive-fill-regexp)
2677 (unless (boundp 'adaptive-fill-first-line-regexp)
2678 (setq adaptive-fill-first-line-regexp nil))
2679 (make-local-variable 'adaptive-fill-first-line-regexp)
2680 (let ((quote-prefix-regexp
2681 ;; User should change message-cite-prefix-regexp if
2683 (concat "\\(" message-cite-prefix-regexp "\\)[ \t]*")))
2686 (regexp-quote mail-header-separator) "$\\|"
2692 quote-prefix-regexp "$\\|" ; empty lines in quoted text
2696 (setq adaptive-fill-regexp
2697 (concat quote-prefix-regexp "\\|" adaptive-fill-regexp))
2698 (setq adaptive-fill-first-line-regexp
2699 (concat quote-prefix-regexp "\\|"
2700 adaptive-fill-first-line-regexp)))
2701 (make-local-variable 'auto-fill-inhibit-regexp)
2702 ;;(setq auto-fill-inhibit-regexp "^[A-Z][^: \n\t]+:")
2703 (setq auto-fill-inhibit-regexp nil)
2796 (search-forward-regexp "[^:]+:\\([^\n]\\|\n[ \t]\\)+\n\n" nil t)))
2952 (when (looking-at message-cite-prefix-regexp)
2992 (not (looking-at message-cite-prefix-regexp))
2996 (when (looking-at message-cite-prefix-regexp)
3013 (looking-at message-cite-prefix-regexp)
3024 (looking-at message-cite-prefix-regexp)
3033 (not (looking-at message-cite-prefix-regexp)))
3039 (not (looking-at message-cite-prefix-regexp)))
3060 (let* ((adaptive-fill-regexp
3061 (regexp-quote (concat quoted leading-space)))
3062 (adaptive-fill-first-line-regexp
3063 adaptive-fill-regexp ))
3083 (concat "^" (regexp-quote mail-header-separator) "\n")
3478 (concat "^" (regexp-quote mail-header-separator) "$"))
3481 (if (re-search-forward (concat "^" (regexp-quote header) ":") nil t)
3489 (concat "^" (regexp-quote (car afters)) ":")
3798 (concat "^" (regexp-quote mail-header-separator) "\n"))
3955 "The message size is too large, split? "
3962 problem, answer `y', and the message will be split into several
3968 However, some mail readers (MUA's) can't read split messages, i.e.,
4001 (concat "^" (regexp-quote mail-header-separator) "\n"))
4069 (concat "^" (regexp-quote mail-header-separator) "\n"))
4243 (concat "^" (regexp-quote mail-header-separator) "\n"))
4335 (regexp-quote
4577 (concat "^" (regexp-quote mail-header-separator) "$"))
4594 (concat "^" (regexp-quote mail-header-separator) "$"))
4643 (when (search-backward-regexp "^>[^\n]*\n" nil t)
4644 (setq no-problem (search-forward-regexp "^[ \t]*[^>\n]" nil t)))
4652 (concat "^" (regexp-quote mail-header-separator) "$"))
4653 (if (search-forward-regexp "^[ \t]*[^>\n]" nil t)
4664 (concat "^" (regexp-quote mail-header-separator) "$"))
4699 (concat "^" (regexp-quote mail-header-separator) "$")
5049 (string-match message-valid-fqdn-regexp message-user-fqdn)
5053 ((and (string-match message-valid-fqdn-regexp system-name)
5060 (string-match message-valid-fqdn-regexp mail-host-address)
5066 (string-match message-valid-fqdn-regexp user-domain)
5119 (setq item (regexp-quote (buffer-substring begin end)))
5124 (mapcar 'regexp-quote
5133 when (loop for regexp in mft-regexps
5134 when (string-match regexp recipient) return t)
5148 (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) ""))
5232 (regexp-quote (downcase header-string))
5386 (defun message-split-line ()
5391 (split-line message-yank-prefix) ;; Emacs 22.1+ supports arg.
5393 (split-line))))
5563 (regexp (concat "\\`"
5564 (regexp-quote
5576 (when (and (string-match regexp (setq b (buffer-name b)))
6216 regexp to match all of yours addresses."
6247 ;; 'message-alternative-emails' regexp
6948 (defcustom message-newgroups-header-regexp
6952 :type 'regexp)
6955 (list (cons message-newgroups-header-regexp 'message-expand-group)
6964 :type '(alist :key-type regexp :value-type function))
6982 (let ((mail-abbrev-mode-regexp (caar alist)))
7082 regexp VARSTR."
7094 (regexp "^gnus\\|^nn\\|^message\\|^sendmail\\|^smtp\\|^user-mail-address"))
7099 (string-match regexp (symbol-name (car local)))
7161 (let ((mail-abbrev-mode-regexp "")
7176 (split-string
7249 (dolist (regexp regexps)
7250 (setq result (or result (looking-at regexp))))