From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Tue, 24 Feb 2004 07:48:37 +0000 (+0000)
Subject: (message-setup-fill-variables): Add mml tags to paragraph-start and
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=da2ca4ae1e36951dcbb8020690e39a75e0756826;p=gnus

(message-setup-fill-variables): Add mml tags to paragraph-start and
 paragraph-separate.  Suggested by Andrew Korty.
(message-mode): Don't modify paragraph-separate there.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8ff4db54..29b96d7b7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2004-02-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* message.el (message-setup-fill-variables): Add mml tags to
+	paragraph-start and paragraph-separate.  Suggested by Andrew Korty
+	<ajk@iu.edu>.
+	(message-mode): Don't modify paragraph-separate there.
+
 2004-02-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* compface.el (uncompface-use-external): Default to undecided.
diff --git a/lisp/message.el b/lisp/message.el
index 50099c59c..627dcb02b 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2438,11 +2438,6 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
   (set (make-local-variable 'message-checksum) nil)
   (set (make-local-variable 'message-mime-part) 0)
   (message-setup-fill-variables)
-  (set
-   (make-local-variable 'paragraph-separate)
-   (format "\\(%s\\)\\|\\(%s\\)"
-	   paragraph-separate
-	   "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)"))
   ;; Allow using comment commands to add/remove quoting.
   (set (make-local-variable 'comment-start) message-yank-prefix)
   (if (featurep 'xemacs)
@@ -2494,7 +2489,9 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
 	   "---+$\\|"		   ; delimiters for forwarded messages
 	   page-delimiter "$\\|"	; spoiler warnings
 	   ".*wrote:$\\|"		; attribution lines
-	   quote-prefix-regexp "$"))	; empty lines in quoted text
+	   quote-prefix-regexp "$\\|"	; empty lines in quoted text
+					; mml tags
+	   "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)"))
     (setq paragraph-separate paragraph-start)
     (setq adaptive-fill-regexp
 	  (concat quote-prefix-regexp "\\|" adaptive-fill-regexp))