From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 7 Feb 2000 23:27:14 +0000 (+0000)
Subject: (rmail-retry-failure): Use
X-Git-Tag: emacs-pretest-21.0.90~5068
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77e38f8bbbf3574fc3dac7597b6875779ced8bec;p=emacs.git

(rmail-retry-failure): Use
rmail-beginning-of-message before rmail-toggle-header, because the
former toggles headers.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 46240dbabc6..9110825a244 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1,6 +1,6 @@
 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
 
-;; Copyright (C) 1985,86,87,88,93,94,95,96,97,1998
+;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000
 ;;		Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -3038,9 +3038,9 @@ specifying headers which should not be copied into the new message."
 	bounce-start bounce-end bounce-indent resending)
     (save-excursion
       ;; Narrow down to just the quoted original message
+      (rmail-beginning-of-message)
       (if pruned
 	  (rmail-toggle-header 0))
-      (rmail-beginning-of-message)
       (let* ((case-fold-search t)
 	     (top (point))
 	     (content-type