Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!wnoc-sfc-news!wnoc-kyo-news!news.hiroshima-cu!hiroshima-u!seabat!takeda
From: takeda@zeus.cs.ehime-u.ac.jp ($BC]ED(B $B?-9,(B/Takeda Nobuyuki)
Subject: Re: RMAIL indentprefix
In-Reply-To: obara@procyon.kek.jp's message of Fri, 6 Jan 1995 11:50:28 GMT
Message-ID: <TAKEDA.95Jan9131930@zeus.cs.ehime-u.ac.jp>
Sender: news@seabat.cs.ehime-u.ac.jp (News)
Organization: Dept.of Computer Science,Ehime University,Japan
References: <1995Jan6.115028.22516@kekux.kek.jp>
Date: Mon, 9 Jan 1995 04:19:30 GMT
Lines: 86
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:5219
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5219&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.

$BC]ED!w0&I2Bg3X9)3XIt>pJs9)3X2J#M#2$G$9!%(B

$BC/$b%U%)%m!<$7$F$$$J$$$h$&$J$N$G(B...

In article <1995Jan6.115028.22516@kekux.kek.jp>
   obara@procyon.kek.jp (Hiroshi Obara : KEK Computing Center Operation Room) writes:

>> $B>.86!w!c0q#M!d!%F|N)>pJs$H?=$7$^$9!#(B
>> 
>> Nemacs version 3.3.2 $B$r;HMQ$7$F$$$^$9!#(B
>> 
>> $B%a%$%k$K%j%W%i%$$rJV$9;~$K!"(B C-c C-y (mail-yank-original) $B$r;H$C$F$$$^(B
>> $B$9!#$3$N;~%G%U%)%k%H$G$O#3%+%i%`$N%9%Z!<%9$r%a%C%;!<%8$N3F9T$N@hF,$KF~(B
>> $B$l$^$9!#$3$N%G%U%)%k%H$rJQ99$7$F(B ">" $B$d(B ":" $B$J$I$K$7$?$$$H9M$($F$$$^$9!#(B
>> .emacs $B$G8GDj$K$7$F$bNI$$$N$G$9$,!"=PMh$l$P$=$N;~$=$N;~$KJQ99$G$-$?$i(B
>> $B$H9M$($F$$$^$9!#$I$N$h$&$K$7$?$i!"JQ99$G$-$k$N$G$7$g$&$+!)(B
>> 
>>   $B$=$l$G$O!"59$7$/$*4j$$$7$^$9!#(B

  $B$D$.$N%U%!%$%k$rFI$_9~$s$G$_$F2<$5$$!%(B

(load "sendmail-patch" t)

$B$H$G$b(B ~/.emacs $B$K2C$($F2<$5$$!%(B

$B!t(B $B$A$g$C$H$$$$2C8:$G$9$,(B...^^;;

$B%G%U%)%k%H$O!$(B ">> " $B$G$9!%(B ">" $B$d(B ":"  $B$K(B
$BJQ$($?$$>l9g$O!$(B

(setq mail-yank-quoting-marker "> ")

or

(setq mail-yank-quoting-marker ": ")

$B$H$$$&$N$b2C$($F2<$5$$!%(B

$B!t(B $B99$K!$(BGNUS (4.1) $B$G$bM-8z$K$J$j$^$9!%(B

-- sendmail-patch.el ---------------------------------------------------------
(require 'sendmail)
(provide 'sendmail-patch)

(defvar mail-yank-quoting-marker ">> ")
(defun mail-yank-original (arg)
  "Insert the message being replied to, if any (in rmail).
Puts point before the text and mark after.
Indents each nonblank line ARG spaces (default 3).
Just \\[universal-argument] as argument means don't indent
and don't delete any header fields."
  (interactive "P")
  (if mail-reply-buffer
      (let ((start (point))
            (input (read-string
                    (format "Quoting marker (default: %s): " mail-yank-quoting-m
arker))))
        (if (equal input "")
            (setq input mail-yank-quoting-marker))
        (setq mail-yank-quoting-marker input)
        (delete-windows-on mail-reply-buffer)
        (insert-buffer mail-reply-buffer)
        (if (consp arg)
            nil
          (mail-yank-clear-headers start (mark))
          (save-excursion
            (goto-char start)
            (narrow-to-region start (mark))
            (replace-regexp "^" input)
            (beginning-of-line)
            (replace-regexp (concat "^" input) "")
            (goto-char start)
            (widen)))
        (exchange-point-and-mark)
        (if (not (eolp)) (insert ?\n)))))
-------------------------------------------------------------------------------

--
|$B!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!1!B(B
| $B&((B                                                              $B&((B $B!B(B
|    $B0&I2Bg3XBg3X1!(B $B9)3X8&5f2J(B $B>pJs9)3X@l96(B $BCNG=>pJs9)3X9V:B(B $B#M#2(B    $B!B(B
|      $BC]ED(B $B?-9,(B (Takeda Nobuyuki) $B!JAj868&5f<<!K(B                    $B!B(B
|      E-mail: takeda@zeus.cs.ehime-u.ac.jp        $B!2!2!2(B  $B!2!2!2(B    $B!B(B
|        http://gaia.cs.ehime-u.ac.jp/~takeda/    $B!C3NG'!C!C<h>C!C(B   $B!B(B
| $B&((B                                               $B!1!1!1(B  $B!1!1!1(B $B&((B $B!B(B
 =====================================================================
