diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-12-18 17:40:25 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-12-18 17:40:25 +0000 |
commit | 4d7122336f28e0870bc9202a7235a945b8326829 (patch) | |
tree | 4946d1c0cf97c52e2e08248da66a0d30494e641d /lisp/mail/rmail.el | |
parent | b4c941a8fb59fda5d20a1a8acc00492addf12f56 (diff) | |
download | emacs-4d7122336f28e0870bc9202a7235a945b8326829.tar.gz |
(rmail-search-backward): Function deleted.
(rmail-mode-map): Use rmail-search-backwards instead.
Diffstat (limited to 'lisp/mail/rmail.el')
-rw-r--r-- | lisp/mail/rmail.el | 26 |
1 files changed, 1 insertions, 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. |