(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 46240dbabc68e0bd1563b8c1c2b0670d83f02523..9110825a2447f5b01bb5ee257ca3b7349fb3475c 100644 (file)
--- 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