From fc35b9101a533039902105fa3b65c500906effcb Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 13 Jun 1999 02:35:37 +0000 Subject: [PATCH] (rmail-output-read-rmail-file-name): If in rmail-summary buffer, search for pattern in rmail-file. --- lisp/mail/rmailout.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 6b32c055839..c9232401133 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -50,6 +50,8 @@ Set `rmail-default-rmail-file' to this name as well as returning it." ;; 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))))) -- 2.39.5