From 342aa43969407324eb328d44c9b6e9f4aa067485 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 18 Dec 1994 17:40:25 +0000 Subject: [PATCH] (rmail-search-backward): Function deleted. (rmail-mode-map): Use rmail-search-backwards instead. --- lisp/mail/rmail.el | 26 +------------------------- 1 file changed, 1 insertion(+), 25 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 506e33d0ce0..3c65e22fc3a 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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. -- 2.39.5