(message-mode): \\(...\\) around additional

paragraph-separate alternative.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be3b1b2..c511d94 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-23  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+       * message.el (message-mode): \\(...\\) around additional
+       paragraph-separate alternative.
+
 2003-02-23  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus-art.el (gnus-mime-button-commands): Add ellipsis.

diff --git a/lisp/message.el b/lisp/message.el
index f4562ce..bcdaca8 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2270,9 +2270,11 @@ 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)
-       (concat paragraph-separate
-              "\\|<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)"))
+  (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)