Source

tm / message-mime.el

Diff from to

message-mime.el

 
 (setq message-forward-end-separator "")
 
-(or (string-match message-included-forward-headers "Mime-Version:")
-    (setq message-included-forward-headers
-	  (concat message-included-forward-headers "\\|^Mime-Version:"))
-    )
+(when (boundp 'message-included-forward-headers)
+  (or (string-match message-included-forward-headers "Mime-Version:")
+      (setq message-included-forward-headers
+            (concat message-included-forward-headers "\\|^Mime-Version:"))
+      )
 
-(or (string-match message-included-forward-headers "Content-Type:")
-    (setq message-included-forward-headers
-	  (concat message-included-forward-headers "\\|^Content-Type:"))
-    )
+  (or (string-match message-included-forward-headers "Content-Type:")
+      (setq message-included-forward-headers
+            (concat message-included-forward-headers "\\|^Content-Type:"))
+      )
 
-(or (string-match message-included-forward-headers
-                  "Content-Transfer-Encoding:")
-    (setq message-included-forward-headers
-	  (concat message-included-forward-headers
-                  "\\|^Content-Transfer-Encoding:"))
-    )
+  (or (string-match message-included-forward-headers
+                    "Content-Transfer-Encoding:")
+      (setq message-included-forward-headers
+            (concat message-included-forward-headers
+                    "\\|^Content-Transfer-Encoding:"))
+      ))
 
 ;;; @ for tm-edit
 ;;;