Mercurial > emacs
changeset 24838:38c24ff1f1c6
(rmail-output-read-rmail-file-name): If in
rmail-summary buffer, search for pattern in rmail-file.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 13 Jun 1999 02:35:37 +0000 |
| parents | e8e1a22961da |
| children | c67fe81fd9ed |
| files | lisp/mail/rmailout.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailout.el Sun Jun 13 02:33:49 1999 +0000 +++ b/lisp/mail/rmailout.el Sun Jun 13 02:35:37 1999 +0000 @@ -50,6 +50,8 @@ ;; Suggest a file based on a pattern match. (while (and tail (not answer)) (save-excursion + (if (eq major-mode 'rmail-summary-mode) + (set-buffer rmail-buffer)) (goto-char (point-min)) (if (re-search-forward (car (car tail)) nil t) (setq answer (eval (cdr (car tail)))))