jbw@BIGBIRD.BU.EDU (Joe Wells) (12/20/90)
I'd like to add "Return-Receipt-To: " header field to my mail template. Can I do this in my .emacs (I already know about CC, BCC, etc.)? If so, please *mail* me the lisp code for it. Thank you. Well, of course you can always simply type in any headers you want. But if you want to define a command to do the work for you, it goes roughly like this: (defun mail-return-receipt-to () "Move point to end of Return-Receipt-To-field. Create a Return-Receipt-To field if none. Then add the user's login name." (interactive) (expand-abbrev) (save-excursion (or (mail-position-on-field "Return-Receipt-To" t) (progn (mail-position-on-field "to") (insert "\nReturn-Receipt-To: "))) (or (eq ? (preceding-char)) (insert ", ")) (insert (user-login-name)))) (define-key mail-mode-map "\C-c\C-f\C-r" 'mail-return-receipt-to) -- Enjoy, Joe
dowlati%mips2.cr.bull.com@NIC.NEAR.NET (Saadat Dowlati) (12/21/90)
Hi Joe, Thanks for the code. I was doing it manually until now. I have been meaning to learn lisp but never found the time. What I really had in mind was the static version of what you sent me, i.e., define a variable, say " mail-return-receipt-to", and then: (setq mail-return-receipt-to "foo@foo.com") Good luck with your Ph.D. program. -- sd