Applied patch from KANEMATSU Daiji <kanematu@sra.co.jp>.

* message.el (message-signature-separator-for-insertion): New customizable
 variable which is used for signature separator.
* message.el (message-insert-signature): Use variable
 `message-signature-separator-for-insertion' instead of hard code.

diff --git a/ChangeLog b/ChangeLog
index 700bf74..7668b1a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2001-08-17  KANEMATSU Daiji  <kanematu@sra.co.jp>
+
+       * lisp/message.el (message-signature-separator-for-insertion): New
+       customizable variable which is used for signature separator.
+       * lisp/message.el (message-insert-signature): Use variable
+       `message-signature-separator-for-insertion' instead of hard code.
+
 2001-08-15  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * texi/gnus-ja.texi (Browsing the Web): Fix typo.

diff --git a/lisp/message.el b/lisp/message.el
index cdf1047..0c58142 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -311,6 +311,13 @@ is the symbol `guess', try to detect \"Re: \" within an encoded-word."
   :type 'regexp
   :group 'message-various)
 
+(defcustom message-signature-separator-for-insertion "-- \n"
+  "*Signature separator. This value will be inserted as signature separator
+when composing message. Default value is \"-- \\n\". Notice: Changing this
+value may go against RFC-1036 and draft-ietf-usefor-article-05.txt. "
+  :type 'string
+  :group 'message-insertion)
+
 (defcustom message-elide-ellipsis "\n[...]\n\n"
   "*The string which is inserted for elided text."
   :type 'string
@@ -2188,7 +2195,9 @@ Prefix arg means justify as well."
       ;; Insert the signature.
       (unless (bolp)
        (insert "\n"))
-      (insert "\n-- \n")
+      (insert "\n" message-signature-separator-for-insertion)
+      (unless (bolp)
+       (insert "\n"))
       (if (eq signature t)
          (insert-file-contents message-signature-file)
        (insert signature))