home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / gnu / emacs / help / 4099 < prev    next >
Encoding:
Text File  |  1992-09-11  |  1.7 KB  |  44 lines
  1. Newsgroups: gnu.emacs.help
  2. Path: sparky!uunet!spool.mu.edu!umn.edu!news.cs.indiana.edu!cherry!wmperry
  3. From: wmperry@cherry.ucs.indiana.edu (William M. Perry)
  4. Subject: Re: RMAIL questions
  5. In-Reply-To: jkr+@CS.CMU.EDU's message of 11 Sep 92 19:02:55 GMT
  6. Message-ID: <WMPERRY.92Sep11223350@cherry.ucs.indiana.edu>
  7. Organization: Computer Science Student, Indiana University
  8. References: <BuFGwv.K0K.2@cs.cmu.edu>
  9. Date: 11 Sep 92 22:33:50
  10. Lines: 32
  11.  
  12. >There are a couple of default behaviors I would like to add or modify:
  13.  
  14. >(1) I would like to have Re: at the beginning of my subject field
  15. >    when replying to a message, as is the convention.
  16.  
  17.    I'm pretty sure this is the default.
  18.  
  19. >(2) I would like to be able to reply to just the sender.
  20.  
  21.    It is fairly simple to do this.  I wrote a function rmail-new-reply
  22. that yanks the message you are replying to, inserts '>' at the
  23. beginning of each line, and just replies to the sender.  Set it up
  24. using: (define-key rmail-mode-map "r" 'rmail-new-reply) in your
  25. rmail-mode-hook.  Here is the function:
  26.  
  27. (defun rmail-new-reply ()
  28.   (interactive)
  29.   (rmail-reply 1)  ;;; this tells it to just reply to the sender
  30.   (mail-yank-original 0) ;;; yank in old message, indentation 0
  31.   (goto-char 1) ;; go to beginning of message
  32.   (re-search-forward mail-header-separator nil t) ;;; go past headers
  33.   (replace-regexp "^" ">")) ;;; put a '>' at the start of each line
  34.  
  35. >Thanks,
  36. >Ken
  37.  
  38. hope this is what you wanted...
  39.     -Bill
  40. -- 
  41. William M. Perry          / 'When you know a thing, to hold that you know it;
  42. wmperry@ucs.indiana.edu  / and when you do not know a thing, to allow that you
  43. Phone: (812) 336 - 3071 / do not know it; this is knowlege.' - Confucius
  44.