Commit 342aa439 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-search-backward): Function deleted.

(rmail-mode-map): Use rmail-search-backwards instead.
parent d80bd4a0
......@@ -498,7 +498,7 @@ Note: it means the file has no messages in it.\n\^_")))
(cons "Move" (make-sparse-keymap "Move")))
(define-key rmail-mode-map [menu-bar move search-back]
'("Search Back..." . rmail-search-backward))
'("Search Back..." . rmail-search-backwards))
(define-key rmail-mode-map [menu-bar move search]
'("Search..." . rmail-search))
......@@ -1634,30 +1634,6 @@ or forward if N is negative."
(search-forward "*** EOOH ***" (point-max)) (point))))
(re-search-forward regexp end t)))
(defun rmail-search-backward (regexp &optional n)
"Show message containing next match for REGEXP.
Prefix argument gives repeat count; negative argument means search
backwards (through earlier messages).
Interactively, empty argument means use same regexp used last time."
(interactive
(let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))
(prompt
(concat (if reversep "Reverse " "") "Rmail search (regexp): "))
regexp)
(if rmail-search-last-regexp
(setq prompt (concat prompt
"(default "
rmail-search-last-regexp
") ")))
(setq regexp (read-string prompt))
(cond ((not (equal regexp ""))
(setq rmail-search-last-regexp regexp))
((not rmail-search-last-regexp)
(error "No previous Rmail search string")))
(list rmail-search-last-regexp
(prefix-numeric-value current-prefix-arg))))
(rmail-search regexp (- n)))
(defvar rmail-search-last-regexp nil)
(defun rmail-search (regexp &optional n)
"Show message containing next match for REGEXP.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment