From 1eed7785f836dcb2d6a3b6041dffe3bfd561c7b3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 17 Aug 2001 01:30:35 +0000 Subject: [PATCH] Applied patch from KANEMATSU Daiji . * 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. --- ChangeLog | 7 +++++++ lisp/message.el | 11 ++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 094c810..1a6fd26 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2001-08-17 KANEMATSU Daiji + + * 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 * texi/gnus-ja.texi (Browsing the Web): Fix typo. diff --git a/lisp/message.el b/lisp/message.el index 399f4a5..c2780bc 100644 --- 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 @@ -2212,7 +2219,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)) -- 1.7.10.4