From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 Oct 1995 19:34:25 +0000 (+0000)
Subject: (mail-signature-file): New variable.
X-Git-Tag: emacs-19.34~2744
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ac2e032a51517c6c879d58854bb412df91ff913;p=emacs.git

(mail-signature-file): New variable.
Fix various doc strings to mention it.
(mail-signature): Use mail-signature-file.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 992cb09edd7..ea2a291aa15 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -146,7 +146,10 @@ removed from alias expansions."
 ;;;###autoload
 (defvar mail-signature nil
   "*Text inserted at end of mail buffer when a message is initialized.
-If t, it means to insert the contents of the file `~/.signature'.")
+If t, it means to insert the contents of the file `mail-signature-file'.")
+
+(defvar mail-signature-file "~/.signature"
+  "*File containing the text inserted at end of mail buffer.")
 
 (defvar mail-reply-buffer nil)
 (defvar mail-send-actions nil
@@ -262,10 +265,10 @@ actually occur.")
     ;; Insert the signature.  But remember the beginning of the message.
     (if to (setq to (point)))
     (cond ((eq mail-signature t)
-	   (if (file-exists-p "~/.signature")
+	   (if (file-exists-p mail-signature-file)
 	       (progn
 		 (insert "\n\n-- \n")
-		 (insert-file-contents "~/.signature"))))
+		 (insert-file-contents mail-signature-file))))
 	  (mail-signature
 	   (insert mail-signature)))
     (goto-char (point-max))
@@ -285,7 +288,7 @@ C-c C-f  move to a header field (and create it if there isn't):
 	 C-c C-f C-c  move to CC:	C-c C-f C-b  move to BCC:
 	 C-c C-f C-f  move to FCC:
 C-c C-t  mail-text (move to beginning of message text).
-C-c C-w  mail-signature (insert `~/.signature' file).
+C-c C-w  mail-signature (insert `mail-signature-file' file).
 C-c C-y  mail-yank-original (insert current message, in Rmail).
 C-c C-q  mail-fill-yanked-message (fill what was yanked).
 C-c C-v  mail-sent-via (add a Sent-via field for each To or CC)."
@@ -808,7 +811,7 @@ the user from the mailer."
   (search-forward (concat "\n" mail-header-separator "\n")))
 
 (defun mail-signature (atpoint)
-  "Sign letter with contents of the file `~/.signature'.
+  "Sign letter with contents of the file `mail-signature-file'.
 Prefix arg means put contents at point."
   (interactive "P")
   (save-excursion
@@ -819,7 +822,7 @@ Prefix arg means put contents at point."
     (or atpoint
 	(delete-region (point) (point-max)))
     (insert "\n\n-- \n")
-    (insert-file-contents (expand-file-name "~/.signature"))))
+    (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.
@@ -906,8 +909,8 @@ and don't delete any header fields."
 When this function returns, the buffer `*mail*' is selected.
 The value is t if the message was newly initialized; otherwise, nil.
 
-Optionally, the signature file `~/.signature' can be inserted at the end;
-see the variable `mail-signature'.
+Optionally, the signature file `mail-signature-file' can be inserted at the
+end; see the variable `mail-signature'.
 
 \\<mail-mode-map>
 While editing message, type \\[mail-send-and-exit] to send the message and exit.