Put signature before forwarded message

Put signature before forwarded message

[Kai Großjohann]

May I suggest the following patch for message.el 5.84?

$ diff -u lisp/message.el.SAV lisp/message.el
--- lisp/message.el.SAV Sat Jan 15 20:17:36 2000
+++ lisp/message.el     Sat Jan 15 20:19:48 2000
@@ -299,6 +299,11 @@
   :group 'message-forwarding
   :type 'boolean)
 
+(defcustom message-forward-before-signature t
+  "*If non-nil, put forwarded message before signature, else after."
+  :group 'message-forwarding
+  :type 'boolean)
+
 (defcustom message-wash-forwarded-subjects nil
   "*If non-nil, try to remove as much old cruft as possible from the subject of messages before generating the new subject of a forward."
   :group 'message-forwarding
@@ -3891,7 +3896,9 @@
       (message-mail nil subject))
     ;; Put point where we want it before inserting the forwarded
     ;; message.
-    (message-goto-body)
+    (if message-forward-before-signature
+        (message-goto-body)
+      (goto-char (point-max)))
     (if message-forward-as-mime
        (insert "\n\n<#part type=message/rfc822 disposition=inline>\n")
       (insert "\n\n"))

It adds a new variable message-forward-before-signature which you can
set to nil in order to put your signature before any forwarded message
when doing C-c C-f.  The default value, t, keeps the old behavior.

This might well be too simple-minded, though.

kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)