paulr@sequent.UUCP (Paul Reger) (06/28/89)
Does anyone know of a way to have emacs automatically enclose forwarded messages between a set of 'pre-amble' and 'post-amble' sections ?? For example: If I forward a message, emacs paints this screen (for me) and leaves the cursor at '@': To: @ Subject: [fido: Re: My dog has fleas] --text follows this line-- Date: Tue, 27 Jun 89 14:51:18 pdt I used a flea spray and now they're gone. Love, fido What I wanted was: To: @ Subject: [fido: Re: My dog has fleas] --text follows this line-- Start of pre-amble section: ------------------------------------------------------------------------------ Date: Tue, 27 Jun 89 14:51:18 pdt I used a flea spray and now they're gone. Love, fido ------------------------------------------------------------------------------ End of post-amble section. The reason why I wanted this is to easilly distinguish the forwarded message from added comments. Anybody ??? paulr (Paul Reger) Sequent Computer Systems Beaverton, OR. ... {sun,ucbvax!rutgers!ogccse,uunet}!sequent!paulr #include <standard/disclaimer>
aks%nowhere@HUB.UCSB.EDU (aks@hub, Alan Stebbens) (06/29/89)
> Does anyone know of a way to have emacs automatically enclose > forwarded messages between a set of 'pre-amble' and 'post-amble' > sections ?? 1. Acquire and install MH if you are not already using it. 2. Configure "replcomp" to how you want to format your replies. 3. Use the Emacs interface to MH: mh-e.el ADVERTISEMENT: MH with "mh-e.el" (by Brian K. Reid) is extremely nice, quick, and allows me to be productive even with over 100 pieces of mail each day. I've used Rmail, Mush, Sun's Mailtool, and even Berkeley Mail, and much prefer the Emacs interface to MH Alan Stebbens <aks@hub.ucsb.edu> (805) 961-3221 Center for Computational Sciences and Engineering (CCSE) University of California, Santa Barbara (UCSB) 3111 Engineering I, Santa Barbara, CA 93106
aks%nowhere@HUB.UCSB.EDU (aks@hub, Alan Stebbens) (06/29/89)
Oops! I just read the question again and noticed that you were asking about formatting a forwarded piece of mail, not a reply. My answer is pretty much the same, except you should prepare "mhl.forward" (in your Mail directory) to format the forwarded message; "replcomp" is used strictly for formatting replies. You can also use "-form formfile" either on the command line (you'd have to modify "mh-e.el"), or in your ".mh_profile" (preferred). Alan Stebbens <aks@hub.ucsb.edu>
kjones@talos.UUCP (Kyle Jones) (06/29/89)
In article <17978@sequent.UUCP> paulr@sequent.UUCP (Paul Reger) writes: > Does anyone know of a way to have emacs automatically enclose > forwarded messages between a set of 'pre-amble' and 'post-amble' > sections ?? I suggest that whoever adds this feature to RMAIL follow the standard for encapsulating messages as specified in RFC 934. This would allow the recipient of a forwarded meesage to use a digest bursting program extract and read the original messasge. RFC 934 allows for a preface and an epilogue.
wjc@ho5cad.ATT.COM (Bill Carpenter) (06/30/89)
In article <17978@sequent.UUCP> paulr@sequent.UUCP (Paul Reger) writes: > Does anyone know of a way to have emacs automatically enclose > forwarded messages between a set of 'pre-amble' and 'post-amble' > sections ?? Here is what I used to do back when I was an rmail user: ;; put this line in your rmail-mode-hook (define-key rmail-mode-map "F" 'wjc:rmail-Forward) ;; now, pressing "F" instead of "f" will give you a "surrounded" ;; forwarded mailgram. ;; these functions are the implementation; I'm sure I long ago took ;; this from elsewhere and molded it to my own evil intent, but I no ;; longer know whence. (defun wjc:rmail-Forward () (interactive) (rmail-forward) (wjc:forward-surround)) (defun wjc:forward-surround () (interactive) ; Highlight original message. Wrap "message follows/ends" around it. (save-excursion (save-restriction (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) (narrow-to-region (point) (point-max)) (insert "[\n\n]\n===== Forwarded message follows ===============\n") (goto-char (point-max)) (insert "\n===== End of forwarded message ===============\n\n"))))