From 287ef00fa1bbc71cb8429d9a5cfe24203431261a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Nov 2002 19:02:14 +0000 Subject: [PATCH] (mail-signature): Handle case where value of mail-signature is a string. --- lisp/mail/sendmail.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 89154b44934..ebf2f9afc90 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1259,7 +1259,7 @@ external program defined by `sendmail-program'." (goto-char (mail-text-start))) (defun mail-signature (&optional atpoint) - "Sign letter with contents of the file `mail-signature-file'. + "Sign letter with signature based on `mail-signature-file'. Prefix arg means put contents at point." (interactive "P") (save-excursion @@ -1269,8 +1269,10 @@ Prefix arg means put contents at point." (end-of-line) (or atpoint (delete-region (point) (point-max))) - (insert "\n\n-- \n") - (insert-file-contents (expand-file-name mail-signature-file)))) + (if (stringp mail-signature) + (insert mail-signature) + (insert "\n\n-- \n") + (insert-file-contents (expand-file-name mail-signature-file))))) (defun mail-fill-yanked-message (&optional justifyp) "Fill the paragraphs of a message yanked into this one. -- 2.39.2