diff options
| author | Karl Heuer <kwzh@gnu.org> | 1999-06-13 02:35:37 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1999-06-13 02:35:37 +0000 |
| commit | fc35b9101a533039902105fa3b65c500906effcb (patch) | |
| tree | 22a8dc40d2e13721e926fa09ccf594f11d22af3f /lisp/mail/rmailout.el | |
| parent | 48afa9cd7be7a827f2034cf95f783c6bf21c1f64 (diff) | |
| download | emacs-fc35b9101a533039902105fa3b65c500906effcb.tar.gz | |
(rmail-output-read-rmail-file-name): If in
rmail-summary buffer, search for pattern in rmail-file.
Diffstat (limited to 'lisp/mail/rmailout.el')
| -rw-r--r-- | lisp/mail/rmailout.el | 2 |
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))))) |