🚀 go-pugleaf

  $@D>ED!wIY;NDL8&$H?=$7$^$9!#(J  

 On 7 Feb 92 06:05:27 GMT, kikuchi@noguchi.riec.tohoku.ac.jp (Toshiaki Kikuchi) said:
kikuchi> mh-e $@$N@_Dj$K$D$$$F<ALd$7$^$9!#(J
kikuchi> $@0JA0;d(J$@$bOC$K;22C$7$F$$$?@_Dj$r$I$&$9$k$+$H$$$&$N$G!"(J
kikuchi> ~/.mh_profile $@$G(J -nocc me $@$r=q$$$F$*$1$P!"<+J,(J$@$,(J Cc:
kikuchi> $@$NCf$KF~$i$J$$$H$$$&$3$H$@$C$?$H;W$&$s$G$9$,$&$^$/$$$-$^$;$s!#(J

  $@$3$l$O@NG:$s$@$3$H$,(J$@$"$j$^$9!#860x$O!"(Jmh-e$@$N(Jmh-reply$@$,(J.mh_profile$@$r(J
$@8+$K$$$+$J$$$h$&$J:n$j$K$J$C$F$$$k$;$$$G$9!#Dj5A(J(emacs $@$NI8=`G[I[$KIU(J
$@B0$N$b$N$G:G?7$N(Jmh-e$@$G$O$"$j$^$;$s!K$r0J2<$K<($7$^$9!#(J

(defun mh-reply (prefix-provided msg)
  "Reply to a MESSAGE (default: displayed message).
If (optional) prefix argument provided, then include the message in the reply."
  (interactive (list current-prefix-arg (mh-get-msg-num t)))
  (let ((minibuffer-help-form
	 "from => Sender only\nto => Sender and primary recipients\ncc or all => Sender and all recipients"))
    (let ((reply-to (or mh-reply-default-reply-to
			(completing-read "Reply to whom: "
					 '(("from") ("to") ("cc") ("all"))
					 nil
					 t)))
	  (msg-filename (mh-msg-filename msg))
	  (folder mh-current-folder)
	  (show-buffer mh-show-buffer)
	  (config (current-window-configuration)))
      (message "Composing a reply...")
      (cond ((or (equal reply-to "from") (equal reply-to ""))
	     (apply 'mh-exec-cmd
		    (mh-list* "repl" "-build"
			      "-nodraftfolder" mh-current-folder
			      msg
			      "-nocc" "all"
			      (if prefix-provided
				  (list "-filter" "mhl.reply")))))
	    ((equal reply-to "to")
	     (apply 'mh-exec-cmd
		    (mh-list* "repl" "-build"
			      "-nodraftfolder" mh-current-folder
			      msg
			      "-cc" "to"
			      (if prefix-provided
				  (list "-filter" "mhl.reply")))))
	    ((or (equal reply-to "cc") (equal reply-to "all"))
	     (apply 'mh-exec-cmd
		    (mh-list* "repl" "-build"
			      "-nodraftfolder" mh-current-folder
			      msg
			      "-cc" "all" "-nocc" "me"
			      (if prefix-provided
				  (list "-filter" "mhl.reply"))))))

   $@0J2<N,(J

  $@FI$a$PBgBNH=$k$H;W$$$^$9$,!"(JEmacs$@$NCf$+$i(Jrepl$@%3%^%s%I$r8F$S(J$@$@$9;~$K!"(J
mh-reply-default-reply-to$@$H$$$&JQ?t!J(Jnil$@$J$i%f!<%6$KLd$$9g$o$;$k!K$rD4(J
$@$Y$F!"$=$NCM$K$h$C$F(J$@!"(J-cc $@$^$?$O(J-nocc$@$r7h$a$F$7$^$C$F$$$^$9!#$3$N$?$a!"(J
mh_profile$@$K=q$$$F$$$k@_Dj$OL5;k$5$l$F$7$^$&$h$&$G(J$@$9!#$3$N$d$jJ}$GK~B-(J
$@$J$i$P!"$3$NJQ?t$NCM$r=q49$($k$3$H$GBP=h$G$-$^$9!#5$$K$$$i$J$1$l$P!"(J
mh-reply$@$r<+(J$@J,$GDj5A$7$J$*$9$7$+$J$$$G$7$g$&!#(J

$@!t(Jmh-e$@$r;H$$$3$J$9$K$O!"(Jmh-e.el$@$NDj5A$r8+$J$$$G:Q$^$9$o$1$K$O$$$+(J$@$J$$(J
$@!t$G$7$g$&!#(J:-<
--

                                    $@IY;NDL8&5f=j(J $@%=%U%H%&%'%"8&5fIt(J $@Bh0l8&5f(J$@<<(J
                                    $@D>ED(J  $@HK<y(J   (suguta@flab.fujitsu.co.jp)