changeset 4579:131a3edbd49f

(rmail-forward): Don't bind mail-signature, mail-setup-hook.
author Richard M. Stallman <rms@gnu.org>
date Thu, 12 Aug 1993 00:23:54 +0000
parents 56078e258f15
children 250f9c22ef74
files lisp/mail/rmail.el
diffstat 1 files changed, 16 insertions(+), 19 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Wed Aug 11 23:15:09 1993 +0000
+++ b/lisp/mail/rmail.el	Thu Aug 12 00:23:54 1993 +0000
@@ -1808,28 +1808,25 @@
 			       ""))
 			   (or (mail-fetch-field "Subject") "")
 			   "]")))
-      ;; Turn off the usual actions for initializing the message body
-      ;; because we want to get only the text from the failure message.
-      (let (mail-signature mail-setup-hook)
-	;; If only one window, use it for the mail buffer.
-	;; Otherwise, use another window for the mail buffer
-	;; so that the Rmail buffer remains visible
-	;; and sending the mail will get back to it.
-	(if (funcall (if (and (not rmail-mail-new-frame) (one-window-p t))
-			 (function mail)
-		       (function rmail-start-mail))
-		     nil nil subject nil nil nil
-		     (list (list (function (lambda (buf msgnum)
-				   (save-excursion
-				     (set-buffer buf)
-				     (rmail-set-attribute
-				       "forwarded" t msgnum))))
-				 (current-buffer)
-				 rmail-current-message)))
+      ;; If only one window, use it for the mail buffer.
+      ;; Otherwise, use another window for the mail buffer
+      ;; so that the Rmail buffer remains visible
+      ;; and sending the mail will get back to it.
+      (if (funcall (if (and (not rmail-mail-new-frame) (one-window-p t))
+		       (function mail)
+		     (function rmail-start-mail))
+		   nil nil subject nil nil nil
+		   (list (list (function (lambda (buf msgnum)
+					   (save-excursion
+					     (set-buffer buf)
+					     (rmail-set-attribute
+					      "forwarded" t msgnum))))
+			       (current-buffer)
+			       rmail-current-message)))
 	  (save-excursion
 	    (goto-char (point-max))
 	    (forward-line 1)
-	    (insert-buffer forward-buffer)))))))
+	    (insert-buffer forward-buffer))))))
 
 (defun rmail-resend (address &optional from comment mail-alias-file)
   "Resend current message to ADDRESSES.