home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / gnu / emacs / gnus / 1016 < prev    next >
Encoding:
Text File  |  1992-08-16  |  1.7 KB  |  46 lines
  1. Newsgroups: gnu.emacs.gnus
  2. Path: sparky!uunet!cis.ohio-state.edu!bigbird.bu.edu!jbw
  3. From: jbw@bigbird.bu.edu (Joe Wells)
  4. Subject: Re: getting 2 .signatures
  5. Message-ID: <9208162257.AA11124@bigbird.bu.edu>
  6. Sender: daemon@cis.ohio-state.edu
  7. Organization: GNUs Not Usenet
  8. References: <KEVIN.92Aug11175832@buffalobill.edscom.demon.co.uk> 
  9. Distribution: gnu
  10. Date: Sun, 16 Aug 1992 14:57:39 GMT
  11. Lines: 33
  12.  
  13. In article <KEVIN.92Aug13094218@buffalobill.edscom.demon.co.uk> kevin@edscom.demon.co.uk (Kevin Broadey) writes:
  14.  
  15.    But if I do that, C-c C-w (mail-signature) in mail mode won't have
  16.    anything to insert.  I just checked in sendmail.el and there isn't a
  17.    `mail-signature-file' variable - it uses "~/.signature" directly.
  18.  
  19. Here's a patch.  I would like to see this get into the Emacs distribution.
  20.  
  21. -- 
  22. Joe Wells <jbw@cs.bu.edu>
  23. Member of the League for Programming Freedom --- send e-mail for details
  24. ----------------------------------------------------------------------
  25. --- emacs/jjj/emacs-18.58/lisp/sendmail.el    Tue Jan 28 16:22:56 1992
  26. +++ sendmail.el    Sun Aug 16 18:52:34 1992
  27. @@ -358,12 +358,15 @@
  28.           (insert "\n" field ": ")))
  29.        nil)))
  30.  
  31. +(defvar mail-signature-file "~/.signature"
  32. +  "File inserted as signature by \\[mail-signature].")
  33. +
  34.  (defun mail-signature ()
  35. -  "Sign letter with contents of ~/.signature file."
  36. +  "Sign letter with contents of mail-signature-file."
  37.    (interactive)
  38.    (save-excursion
  39.      (goto-char (point-max))
  40. -    (insert-file-contents (expand-file-name "~/.signature"))))
  41. +    (insert-file-contents (expand-file-name mail-signature-file))))
  42.  
  43.  (defun mail-fill-yanked-message (&optional justifyp)
  44.    "Fill the paragraphs of a message yanked into this one.
  45. ----------------------------------------------------------------------
  46.