Lines Matching +defs:prefix +defs:re
191 Don't touch this variable unless you really know what you're doing.
287 (defcustom message-subject-re-regexp
386 `message-cross-post-followup-to' with a prefix."
577 (defcustom message-cite-prefix-regexp
595 "*Regexp matching the longest possible citation prefix on a line."
815 are to be deleted and then re-generated before sending, so this variable
882 (defcustom message-yank-prefix "> "
884 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
885 See also `message-yank-cited-prefix'."
890 (defcustom message-yank-cited-prefix ">"
892 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
893 See also `message-yank-prefix'."
1039 (re-search-forward "^OR\\>" nil t)))
1074 the prefix.")
1295 (if (re-search-forward
1301 (re-search-forward ,regexp limit t))))))
1338 (re-search-forward (concat "^\\("
1339 message-cite-prefix-regexp
1749 (if (re-search-forward "^[^ \n\t]" nil t)
1765 (unless (re-search-forward (concat "^" (regexp-quote hclean) ":") nil t)
1784 "Fetch field HEADER from the message we're replying to."
1805 (defun message-strip-subject-re (subject)
1807 (if (string-match message-subject-re-regexp subject)
1831 (enc-word-re "=\\?\\([^?]+\\)\\?\\([QB]\\)\\?\\([^?]+\\)\\(\\?=\\)")
1837 (when (re-search-forward enc-word-re nil t)
1856 (while (re-search-forward enc-word-re nil t)
1880 (re-search-forward "=\\?\\([^?]+\\)\\?\\([QB]\\)\\?" word-end t)
1888 (while (re-search-forward "\\(=[A-F0-9][A-F0-9]\\)+"
1894 (re-search-forward "[^?]+" word-end t)
1896 (re-search-forward "\\?=")
1906 `message-strip-subject-re' for this."
1958 ;; delete eventual Re: prefix
1960 (message-strip-subject-re old-subject))
1994 prefix argument, ask for a text to insert. If you don't want the note in the
1997 (if current-prefix-arg
2003 (re-search-backward message-signature-separator))
2012 With prefix-argument just set Follow-Up, don't cross-post."
2026 (re-search-forward
2035 (and message-cross-post-default (not current-prefix-arg))
2037 (and (not message-cross-post-default) current-prefix-arg))
2063 (let ((head (re-search-backward
2067 (while (re-search-backward
2072 (while (re-search-backward
2078 (re-search-backward message-signature-separator))
2087 With prefix-argument just set Follow-Up, don't cross-post."
2119 (not current-prefix-arg))
2121 current-prefix-arg)) t)
2177 (if (re-search-forward "^[^ \t]" nil t)
2181 (if (re-search-forward "^[^ \t]" nil t)
2192 (while (re-search-forward regexp nil t)
2203 (if (re-search-forward
2229 (if (re-search-forward (concat "\\(\n\\)\n\\|^\\("
2269 (not (if (re-search-forward "^[^ \t]" nil t)
2295 (while (re-search-forward "^[^ \n]+:" nil t)
2356 ;; prefix+message-cross-post-followup-to = same w/o cross-post
2638 ;; (set (make-local-variable 'comment-start) message-yank-prefix)
2639 (when message-yank-prefix
2640 (set (make-local-variable 'comment-start) message-yank-prefix)
2642 (concat "^" (regexp-quote message-yank-prefix) "[ \t]*")))
2680 (let ((quote-prefix-regexp
2681 ;; User should change message-cite-prefix-regexp if
2682 ;; message-yank-prefix is set to an abnormal value.
2683 (concat "\\(" message-cite-prefix-regexp "\\)[ \t]*")))
2692 quote-prefix-regexp "$\\|" ; empty lines in quoted text
2697 (concat quote-prefix-regexp "\\|" adaptive-fill-regexp))
2699 (concat quote-prefix-regexp "\\|"
2815 (if (re-search-forward message-signature-separator nil t)
2849 prefix FORCE is given."
2950 ;; snarf citation prefix, if appropriate
2952 (when (looking-at message-cite-prefix-regexp)
2983 (interactive (list (if current-prefix-arg 'full)))
2992 (not (looking-at message-cite-prefix-regexp))
2995 ;; Find the prefix
2996 (when (looking-at message-cite-prefix-regexp)
3005 ;; break inside the cite prefix.
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)))
3055 (delete-region (point) (re-search-forward "[ \t]*"))
3070 (interactive (list (if current-prefix-arg 'full)))
3082 (not (re-search-forward
3100 (not (re-search-backward message-signature-separator nil t))))
3202 (when current-prefix-arg
3203 (prefix-numeric-value current-prefix-arg))))
3233 With prefix arg, specifies the number of places to rotate each letter forward.
3235 (interactive (if current-prefix-arg
3236 (list (prefix-numeric-value current-prefix-arg))
3255 If the function is run with a prefix, it will ask for a new buffer
3284 (let ((fill-prefix message-yank-prefix))
3293 However, if `message-yank-prefix' is non-nil, insert that prefix on each line."
3324 (if (null message-yank-prefix)
3330 (insert message-yank-cited-prefix)
3331 (insert message-yank-prefix))
3339 if `message-yank-prefix' is non-nil, insert that prefix on each line.
3344 prefix, and don't delete any headers."
3410 (when (re-search-backward message-signature-separator start t)
3477 (re-search-forward
3481 (if (re-search-forward (concat "^" (regexp-quote header) ":") nil t)
3483 (re-search-forward "^[^ \t]" nil 'move)
3488 (not (re-search-forward
3493 (re-search-forward "^[^ \t]" nil 'move)
3505 (if (not (re-search-forward message-signature-separator (mark t) t))
3797 (re-search-forward
3895 (while (re-search-forward "^[^ \t\n][^ \t\n:]*[ \t\n]" nil t)
3916 ;; We (re)generate the Lines header.
3928 ;; FIXME: we're inserting the courtesy copy after encoding.
4000 (re-search-forward
4054 (while (re-search-forward "\n\n* *" nil t)
4068 (re-search-forward
4079 ;; command line; if there're none, it scans the headers.
4116 (and (re-search-forward
4228 ;; We (re)generate the Lines header.
4242 (re-search-forward
4316 (re-search-forward "^\\([^ \t:]+\\): " nil t))
4331 (re-search-forward "^[^ \t:]+: " nil t))
4333 (or (re-search-forward
4347 (if (re-search-forward "^Sendsys:\\|^Version:" nil t)
4375 (if (re-search-forward
4381 (if (re-search-forward "^Approved:" nil t)
4465 (while (re-search-forward "^[^ \t\n][^ \t\n:]*[ \t\n]" nil t)
4576 (re-search-forward
4593 (re-search-forward
4598 (re-search-backward message-signature-separator nil t)
4600 (or (re-search-backward "[^ \n\t]" b t)
4607 (if (re-search-forward
4651 (re-search-forward
4663 (re-search-forward
4698 (when (re-search-forward
4736 (while (re-search-forward "^[ \t]*\n" nil t)
4743 (while (re-search-forward "^\\(Newsgroups\\|Followup-To\\): +" nil t)
4747 (if (re-search-forward "^[^ \t]" nil t)
4752 (while (re-search-forward "\n[ \t]+" nil t)
4755 (while (re-search-forward "[ \t\n]*,[ \t\n]*\\|[ \t]+" nil t)
4759 (when (re-search-forward ",+$" nil t)
4798 (message-strip-subject-re
4800 (message-strip-subject-re psubject))))
4864 (while (re-search-forward "[\t\n]+" nil t)
4979 (when (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]" nil 1)
4983 (while (re-search-forward "[\"\\]" nil 1)
4995 (while (re-search-forward "[()\\]" nil 1)
5000 (while (re-search-forward
5110 (let (begin end item re)
5120 (if re (setq re (concat re "\\|" item))
5121 (setq re (concat "\\`\\(" item))))
5122 (and re (list (concat re "\\)\\'"))))))))
5158 (while (re-search-forward (concat "^" header ":") nil t)
5209 (and (re-search-forward
5230 (when (or (not (re-search-forward
5325 (when (re-search-forward "^\\(Original-\\)*Sender:" nil t)
5388 If the current line has `message-yank-prefix', insert it on the new line."
5391 (split-line message-yank-prefix) ;; Emacs 22.1+ supports arg.
5398 (fill-prefix "\t"))
5411 (re-search-forward ":" nil t)
5433 (while (re-search-forward "<[^>]+>" nil t)
5478 ((re-search-forward "^[^:]+:[ \t]*$" nil t)
5503 The prefix argument N is passed directly to `beginning-of-line'.
5523 (eoh (re-search-forward ": *" eol t)))
6006 message-strip-subject-re
6013 `message-strip-list-identifiers', `message-strip-subject-re',
6028 (when (memq 'message-strip-subject-re functions)
6029 (setq subject (concat "Re: " (message-strip-subject-re subject))))
6316 (if (not (re-search-forward "^Message-ID: " nil t))
6353 (while (re-search-forward
6359 (while (re-search-forward "\\[[^ \t]*\\(@\\|\\.\\)[^ \t]*\\]" nil t)
6364 (while (re-search-backward "([Ff][Ww][Dd])" nil t)
6369 (while (re-search-forward "^[ \t]+" nil t)
6372 (while (re-search-backward "[ \t]+$" nil t)
6389 (prefix
6396 prefix
6397 (mail-decode-encoded-word-string prefix))
6406 (prefix
6413 prefix
6414 (mail-decode-encoded-word-string prefix))
6588 (re-search-forward
6640 (while (re-search-forward "^[A-Za-z]" nil t)
6658 (while (re-search-backward "^\\(Also-\\)*Resent-" beg t)
6691 (re-search-forward "\n\n+" nil t)
6694 (if (or (re-search-forward message-unsent-separator nil t)
6697 (re-search-backward "^Return-Path:.*\n" boundary t)))
6701 (if (re-search-forward "^[^ \n\t]+:" nil t)
6705 (when (re-search-backward "^.?From .*\n" nil t)
6807 (while (re-search-forward "\b" end1 t)
7141 (re-search-backward "^Content-Type:" nil t))))
7154 (when (re-search-forward "^MIME-Version:" nil t)