Lines Matching defs:search
181 (defcustom rmail-movemail-search-path nil
182 "*List of directories to search for movemail (in addition to `exec-path')."
210 `rmail-movemail-search-path', those in `exec-path', and `exec-directory'."
214 (dolist (dir (append rmail-movemail-search-path exec-path
592 (defvar rmail-search-mime-message-function nil
599 (defvar rmail-search-mime-header-function nil
895 (search-backward "\n\^_")
904 (search-forward "\n\^_" nil t)
933 (search-forward "\n\^_" nil t) ; Skip BABYL header.
936 (search-backward "\n\^_" from 'mv)
997 ;; (define-key rmail-mode-map "\er" 'rmail-search-backwards)
999 (define-key rmail-mode-map "\es" 'rmail-search)
1115 (define-key rmail-mode-map [menu-bar move search-back]
1116 '("Search Back..." . rmail-search-backwards))
1118 (define-key rmail-mode-map [menu-bar move search]
1119 '("Search..." . rmail-search))
1149 (tool-bar-local-item-from-menu 'rmail-search "search"
1195 \\[rmail-search] Search for string and show message it is found in.
1370 (search-forward "\n\^_" nil 'move)
1373 (if (search-forward "\nMail:" nil t)
1455 (let* ((case-fold-search t)
1623 (search-backward "\n\^_" nil t)
1858 (re-search-forward rmail-remote-password-error
1912 (case-fold-search nil)
1919 (if (re-search-forward
1928 (if (search-forward "\n\^_" nil t)
1935 (or (search-forward "\n\^_" nil t)
1959 (case-fold-search t)
1963 (re-search-forward
1970 (and (re-search-forward
1974 (re-search-forward
1985 (delete-region (point) (search-backward ":"))
1999 (delete-region (point) (search-backward ":"))
2008 (search-forward "\n\n" nil t)
2009 (let ((case-fold-search t))
2010 (re-search-backward
2026 (re-search-forward "^X-Coding-System:" nil t))
2034 ((let ((case-fold-search t))
2036 (let ((case-fold-search t))
2038 (re-search-forward rmail-mmdf-delim2 nil t)
2044 (while (search-forward "\n\^_" nil t); single char "\^_"
2067 (and (re-search-forward "\n\n" nil t)
2069 (case-fold-search t)
2072 (re-search-forward
2079 (re-search-forward
2083 (re-search-forward
2092 (and (search-forward "\ncontent-length: "
2107 (search-forward "\n\^_" nil t))
2109 (search-forward "\n\^_" nil t))
2110 (let ((case-fold-search t))
2116 (if (let ((case-fold-search nil))
2117 (re-search-forward
2135 (delete-region (point) (search-backward ":"))
2154 (delete-region (point) (search-backward ":"))
2161 (while (search-forward "\n\^_" nil t); single char
2175 (search-forward "\n\n" nil t)
2176 (let ((case-fold-search t))
2177 (re-search-backward
2211 (search-forward "\n\n")
2218 (let ((case-fold-search t))
2220 (setq has-from (search-forward "\nFrom:" nil t))
2222 (setq has-date (and (search-forward "\nDate:" nil t) (point)))
2224 (let ((case-fold-search nil))
2225 (if (re-search-forward (concat "^" rmail-unix-mail-delimiter) nil t)
2267 (let ((case-fold-search t))
2274 (save-excursion (search-forward "\n\n" end 'move)
2291 (when (search-forward "\n\n" nil t)
2293 (let ((case-fold-search t)
2302 (if (re-search-forward "\n[^ \t]" nil t)
2307 (re-search-forward rmail-displayed-headers lim t))
2316 (re-search-forward ignored-headers nil t))
2322 (if (re-search-forward "\n[^ \t]" nil t)
2349 (let ((case-fold-search t))
2356 (search-forward "\n*** EOOH ***\n")
2359 (search-forward "\n\n")
2404 (and (not (search-backward "\n\n" nil t))
2407 (re-search-backward "^[-A-Za-z0-9]+:" nil t))
2418 (search-forward "\n\n")
2419 (or (re-search-backward
2441 (search-forward "*** EOOH ***\n")
2445 (search-forward "\n\n")
2480 (while (search-forward "," nil t)
2484 (if (search-backward ",," nil 'move)
2534 (null (search-backward (concat ", " attr ",")
2561 (re-search-backward labels (prog1 (point) (end-of-line)) t))))
2614 (let* ((case-fold-search nil)
2623 (search-backward "\n\^_")
2656 (case-fold-search nil)
2664 (search-backward "\n\^_" nil t)
2688 (while (search-backward "\n\^_\^L" stop t)
2698 (while (search-backward "\r\n" next t)
2705 (cons (if (search-backward ", deleted,"
2803 (search-forward "\n*** EOOH ***\n" end t))
2806 (if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t)
2821 (search-forward "\n*** EOOH ***\n" end t)
2896 (when (search-forward "\n*** EOOH ***\n" (point-max) t)
2899 (if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t)
2957 (search-forward "\n\n" nil 'move)
2960 (let ((case-fold-search t)
2970 (while (re-search-forward rmail-highlighted-headers nil t)
3106 (search-forward "\n*** EOOH ***\n")
3107 (narrow-to-region (point) (progn (search-forward "\n\n") (point)))
3133 (search-forward "\n*** EOOH ***\n" end t)
3137 (funcall rmail-search-mime-header-function n regexp end)
3138 (re-search-forward regexp end t)))))
3140 (defun rmail-search-message (msg regexp)
3144 (funcall rmail-search-mime-message-function msg regexp)
3145 (re-search-forward regexp (rmail-msgend msg) t)))
3147 (defvar rmail-search-last-regexp nil)
3148 (defun rmail-search (regexp &optional n)
3150 Prefix argument gives repeat count; negative argument means search
3156 (concat (if reversep "Reverse " "") "Rmail search (regexp"))
3160 (if rmail-search-last-regexp
3162 rmail-search-last-regexp "): ")
3166 (setq rmail-search-last-regexp regexp))
3167 ((not rmail-search-last-regexp)
3168 (error "No previous Rmail search string")))
3169 (list rmail-search-last-regexp
3172 (message "%sRmail search for %s..."
3192 win (rmail-search-message msg regexp)))
3195 win (rmail-search-message msg regexp))))
3200 ;; Search forward (if this is a normal search) or backward
3201 ;; (if this is a reverse search) through this message to
3202 ;; position point. This search may fail because REGEXP
3209 (re-search-backward regexp nil 'move))
3211 (re-search-forward regexp nil t))
3212 (message "%sRmail search for %s...done"
3220 (defun rmail-search-backwards (regexp &optional n)
3222 Prefix argument gives repeat count; negative argument means search
3228 (concat (if reversep "Reverse " "") "Rmail search (regexp"))
3232 (if rmail-search-last-regexp
3234 rmail-search-last-regexp "): ")
3238 (setq rmail-search-last-regexp regexp))
3239 ((not rmail-search-last-regexp)
3240 (error "No previous Rmail search string")))
3241 (list rmail-search-last-regexp
3243 (rmail-search regexp (- (or n 1))))
3302 (let ((search-regexp (rmail-current-subject-regexp))
3305 (case-fold-search t)
3321 (search-forward "\n*** EOOH ***\n")
3323 (search-forward "\n\n")
3326 (setq done (re-search-forward search-regexp end t))))
3569 (if (search-forward "\n\n" nil 'move)
3579 (progn (search-forward "\n\n" (rmail-msgend rmail-current-message)
3583 (progn (search-forward "\n*** EOOH ***\n")
3623 (if (let ((case-fold-search t))
3772 (while (re-search-forward "^-" end t)
3804 (case-fold-search nil)
3817 (re-search-forward "^$" nil 'move)
3820 (while (re-search-backward "^Sender:" nil t)
3913 ;; Must search thru the whole unpruned header.
3921 (let ((case-fold-search t))
3931 (unless (re-search-forward mail-mime-unsent-header nil t)
3933 (unless (search-forward "\n\n" nil t)
3936 (if (search-forward codestring nil t)
3940 (or (re-search-forward mail-unsent-separator nil t)
3952 (re-search-backward "^End of returned message$" nil t)
3964 (search-forward "\n\n")
3968 (search-backward (concat "\n\n" boundary) bounce-start t)
3972 (unless (search-forward "\n\n" nil t)
4142 (if (not (re-search-forward "^Reply-To: " nil t))
4143 (if (not (re-search-forward "^From:? " nil t))
4161 (let* ((case-fold-search nil)
4190 (if (re-search-forward "<M> " (save-excursion (end-of-line) (point)) t)