🚀 go-pugleaf

$@;01:!VHsC1D4!W6VLi$G$9!%(J

from article <NAO.92Mar10124502@fairlady.sala.sony.co.jp>,
	by nao@sala.sony.co.jp (HAMADA Naoki):
> alias tsuji q12345@ecc.u-tokyo.ac.jp
> 
> $@$H$$$&@_Dj$,$"$C$?$H$-$K$&$C$+$j(J tuji $@$5$s$d(J tuzi $@$5$s$K%a!<%k$r=P$7$F(J
> $@$7$^$&$3$H$,$h$/$"$j$^$9!#(J

$@;d$O!$$3$l$rKI$0$?$a$K!$$=$NETEY@5$7$$(J alias $@$r3NG'$9$k$h$&$K$7$F$$$^$9!%(J
$@IaCJ$O!$(Jemacs $@$+$i(J mail $@$r=P$9$3$H$,B?$$$N$G!$(Jemacs $@$N(J mail-mode $@$G!$Kv(J
$@Hx$KIU$1$?(J get-alias $@$H$$$&4X?t$r(J C-c C-a $@$K%P%$%s%I$7$F;H$C$F$$$^$9!%(J

$@$3$&$7$F$*$1$P!$(Jalias $@$rBG$C$?D>8e$K!$(JC-c C-a RET $@$H$9$k$3$H$G!$E83+8e$N(J
$@%"%I%l%9$r8+$k$3$H$,$G$-$^$9!%>e$N$h$&$JNc$G$O!$(Jtuji $@$d(J tuzi $@$KBP$7$F$O!$(J
no such key $@$H$+=P$k$N$G!$$o$+$k$o$1$G$9!%(J($@$b$A$m$s!$(Jtuji $@$d(J tuzi $@$r!$JL(J
$@$N%"%I%l%9$N(J alias $@$H$7$FDj5A$7$F$"$l$PJL$G$9$,(J ;-))

$@$J$*!$$3$N(J get-alias $@$G(J .mailrc $@$GDj5A$5$l$F$$$k(J alias $@$r;2>H$5$;$k$K$O!$(J
$@;vA0$K(J build-mail-aliases $@$r<B9T$7$F$*$/I,MW$,$"$j$^$9!%$3$l$O!$M[$K<B9T(J
$@$7$F$b9=$$$^$;$s$,!$JQ?t(J mail-alias $@$K(J t $@$r%;%C%H$7$F$*$$$F$b!$(Jmail $@$d(J 
mail-other-window $@$N<B9T;~$K!$(J(build-mail-aliases $@$,(J)$@<+F0E*$K<B9T$5$l$k(J
$@$N$G!$$=$l$rMxMQ$9$k$3$H$b2DG=$G$9!%(J

$@$d$C$D$1;E;v$G:n$C$?$b$N$J$N$G!$IJ<A$NDc$5$O8fMF<O$r!%(J
==================
$@!V(J20A $@@83h<T!W(J
$@;01:!VHsC1D4!W6VLi(J			$@!!72GOBg3X9)3XIt>pJs9)3X2J(J

================== CUT HERE
(defun get-aliases(alias)
  "get aliases information."
  (interactive (let*
		   ((default (save-excursion
			       (and (re-search-backward "[^, \n]" nil t)
				    (re-search-backward "[:, \n]" nil t)
				    (buffer-substring
				     (progn (forward-char 1) (dot))
				     (progn (re-search-forward "[, \n]" nil t)
					    (1- (dot)))))))
		    (spec (read-string
			   (if default
			       (format "Alias(default %s): " default)
			     "Alias: "))))
		 (list (if (equal spec "") default spec))))
  (let ((cb (current-buffer))
	(inner (cdr (assoc alias mail-aliases))))
    (switch-to-buffer-other-window "*aliases*")
    (delete-region (dot-min) (dot-max))
    (insert alias ":\n")
    (set-mark (dot))
    (if inner (insert inner)
	(shell-command (concat "ypmatch "
			       alias
			       " aliases") t))
    (fill-region (mark) (dot))
    (other-window -1)))