Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!kuis!okabe
From: okabe@kutsuda.kuis.kyoto-u.ac.jp (Yasuo Okabe)
Subject: Re: mh-e no signature
In-Reply-To: inamura@icot.or.jp's message of Sat, 15 May 1993 04:58:11 GMT
Message-ID: <OKABE.93May19214539@sole.kutsuda.kuis.kyoto-u.ac.jp>
Sender: news@kuis.kyoto-u.ac.jp
Nntp-Posting-Host: sole.kutsuda.kuis.kyoto-u.ac.jp
Reply-To: okabe@kutsuda.kuis.kyoto-u.ac.jp
Organization: Dept. of Information Science, Kyoto University, JAPAN
References: <OKABE.93May14200053@boots.kutsuda.kuis.kyoto-u.ac.jp>
	<INAMURA.93May15135811@ss104.icot.or.jp>
	<NORI.93May17221342@snail.ssel.toshiba.co.jp>
Distribution: fj
Date: Wed, 19 May 1993 12:45:39 GMT
Lines: 71
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3749
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3749&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.

$B2,It!w5~Bg>pJs$G$9!#(B

In article <INAMURA.93May15135811@ss104.icot.or.jp>,
    inamura@icot.or.jp ($B0pB<!w#I#C#O#T(B $B$5$s(B) writes:

inamura> $B$3$NJU$bF1$8$J$s$G$9$,!"K\J8$H(B signature $B$N4V$KM>7W$J6u9T$r(B
inamura> $BF~$l$J$$$?$a$K(B

YO>   (goto-char (point-max))

inamura> $B$N$"$H$G(B

($BCfN,(B)

inamura> $B$J$s$F$3$H$r$d$C$F$^$9!#(B

In article <NORI.93May17221342@snail.ssel.toshiba.co.jp>,
    nori@ssel.toshiba.co.jp ($B>.;3(B@$BEl<G(B $B$5$s(B) writes:

nori> $B>.;3(B@$BEl<G(B.lisp$B=i?4<T(B $B$G$9!#(B

nori> $B;d$O$$$m$s$J(B signature $B$r;H$$J,$1$?$$$N$G!$(B~/.emacs $B$K<!$NMM$J(B
nori> $B$3$H$rDj5A$7$F$$$^$9!#(B

($BCfN,(B)

nori> $B$3$l$G!$(B~/.signature-$B$[$K$c$i$i(B $B$r4v$D$+MQ0U$7$F$*$1$P!$(B
nori> C-c s $B$G!$<+J,$N9%$-$J(B signature $B$r:99~$`$3$H$,$G$-$^$9!#(B
nori> # $B$[$K$c$i$i$,J,$i$J$/$J$C$F$b(B completion $B$,8z$/$N$GJ?5$$G$9!#(B

$BAaB.$*Fs?M$N%U%)%m!<$r:N$jF~$l$?2~NIHG$r:n$j$^$7$?!#(B
C-c C-s $B$G(B ~/.mh_signature $B$,!"(BC-u C-c C-s $B$G(B ~/.mh_signature-$B$[$K$c$i$i(B
$B$,FI$_9~$^$l$^$9!#(B

(define-key mh-letter-mode-map "\C-c\C-s" 'mh-insert-signature-at-eof)

(defvar mh-signature-file "~/.mh_signature"
  "*Your .mh_signature file. Use `.mh_signature-DISTRIBUTION'
   instead if exists.")

(defun mh-insert-signature-at-eof (&optional arg)
  "Insert the file ~/.mh_signature at the end of file."
  (interactive "P")
  (let ((signature
 (if mh-signature-file
     (expand-file-name mh-signature-file nil))))
    (save-excursion
      (if arg
  (progn
    (setq insert-default-directory t)
    (setq signature
  (read-file-name "Insert your signature: "
  (concat signature "-")
  signature
  nil))))
      (if signature
  (progn
    ;; Insert signature.
    (if (file-readable-p signature)
(progn
  (goto-char (point-max))
  (if (not (looking-at "^$"))
      (insert "\n"))
  (my-delete-blank-or-space-lines)
  (insert "-----\n")
  (insert-file-contents signature)))
    (set-buffer-modified-p (buffer-modified-p))) ; force mode line update
    )))
)
-----
$B2,It<wCK!w5~ETBg3X9)3XIt>pJs9)3X65<<7W;;5!%=%U%H%&%'%"9V:B(B
