(rmail-output-read-rmail-file-name): If in

rmail-summary buffer, search for pattern in rmail-file.

1 files changed, 2 insertions, 0 deletions

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)))))