From: Gerd Moellmann Date: Tue, 8 May 2001 11:18:20 +0000 (+0000) Subject: (rmail-output-read-rmail-file-name): Be sure to X-Git-Tag: emacs-pretest-21.0.103~4 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c96b208d6dd74a7d4011aae1b3e4881b74ca0842;p=emacs.git (rmail-output-read-rmail-file-name): Be sure to set-buffer to the Rmail buffer. (rmail-output-to-rmail-file): Likewise. (rmail-output): Likewise. --- diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index d3fd35916cd..9cf9a8f15e7 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -1,6 +1,6 @@ ;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file. -;; Copyright (C) 1985, 1987, 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1987, 1993, 1994, 2001 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -50,8 +50,7 @@ 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)) + (set-buffer rmail-buffer) (goto-char (point-min)) (if (re-search-forward (car (car tail)) nil t) (setq answer (eval (cdr (car tail))))) @@ -156,6 +155,7 @@ mesasge up instead of moving forward to the next non-deleted message." (let (redelete) (unwind-protect (progn + (set-buffer rmail-buffer) ;; Temporarily turn off Deleted attribute. ;; Do this outside the save-restriction, since it would ;; shift the place in the buffer where the visible text starts. @@ -287,6 +287,7 @@ The optional fourth argument FROM-GNUS is set when called from GNUS." (file-name-directory rmail-default-file)))) (if (and (file-readable-p file-name) (mail-file-babyl-p file-name)) (rmail-output-to-rmail-file file-name count) + (set-buffer rmail-buffer) (let ((orig-count count) (rmailbuf (current-buffer)) (case-fold-search t)