(rmail-search-backward): Function deleted.

(rmail-mode-map): Use rmail-search-backwards instead.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 506e33d0ce0f4d51140a63b6ade4b2f5804388ff..3c65e22fc3a74ba3b079d2e24d5ac65e26640fad 100644 (file)
--- 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.