From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Nov 2002 19:02:14 +0000 (+0000)
Subject: (mail-signature): Handle case where
X-Git-Tag: ttn-vms-21-2-B4~12285
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=287ef00fa1bbc71cb8429d9a5cfe24203431261a;p=emacs.git

(mail-signature): Handle case where
value of mail-signature is a string.
---

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.