# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 929241337 0
# Node ID 38c24ff1f1c6d1dd4df5d9cf6df5f68f3a6ea12e
# Parent  e8e1a22961da10a0598649490a0643b6887f638d
(rmail-output-read-rmail-file-name): If in
rmail-summary buffer, search for pattern in rmail-file.

diff -r e8e1a22961da -r 38c24ff1f1c6 lisp/mail/rmailout.el
--- 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)))))