From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 13 Jun 1999 02:35:37 +0000 (+0000)
Subject: (rmail-output-read-rmail-file-name): If in
X-Git-Tag: emacs-20.4~111
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc35b9101a533039902105fa3b65c500906effcb;p=emacs.git

(rmail-output-read-rmail-file-name): If in
rmail-summary buffer, search for pattern in rmail-file.
---

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