Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!nec-tyo!necspl!ccsnews!h-nakamu
From: h-nakamu@ccs.mt.nec.co.jp (Hideo Nakamura)
Subject: Re: How can I set "Reply-to:" and "FCC:" on mh-e system in ~/.emacs
Sender: news@ccsnews.ccs.mt.nec.co.jp (CCS News server - ccsnews)
Message-ID: <H-NAKAMU.93Nov9095544@sple241.ccs.mt.nec.co.jp>
In-Reply-To: a214@ulis.ac.jp's message of 8 Nov 93 01:22:02 GMT
Date: Tue, 9 Nov 1993 09:55:44 GMT
Distribution: fj
References: <A214.93Nov8102202@kelp.ulis.ac.jp>
Organization: NEC Corporation
Lines: 15
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4117
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4117&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BCf@n$5$s(B:
>"Reply-to:" $B$H(B "FCC:" $B%U%#!<%k%I$N%G%U%)%k%HCM$r(B ~/.emacs $B$G%;%C%H$7!"(B
> mh-smail $B%P%C%U%!$r3+$/$?$S$K(B $B$3$l$i$N%U%#!<%k%I$r(B $B<+F0E*$KIU$1$?$$$N(B
>$B$G$9$,!"$I$N$h$&$K$7$?$i$G$-$k$N$G$7$g$&$+!)(B

$B;d$O(BFcc:$B$rF~$l$k$N$K<!$N$h$&$K$7$F$$$^$9!#(BReply-to:$B$bF1MM$KF~$l$i$l$k$G$7$g$&!#(B

(defvar default-fcc "send")
(defun my-compose (to sub cc)
  (mh-insert-fields "Fcc:" default-fcc)
  (goto-char (point-max)))
(setq mh-compose-letter-hook 'my-compose)       ;; Nemacs$BMQ(B
(setq mh-compose-letter-function 'my-compose)   ;; Mule$BMQ(B

$B%^%$%3%s%=%U%H%&%'%"3+H/8&5f=j(B $B4D6-%7%9%F%`3+H/It(B $BCfB<=(CK(B
