🚀 go-pugleaf

>>>>>On 12 Mar 92 02:36:57 GMT, miura@symb.cs.gunma-u.ac.jp (Miura Kinya) said:

$@;01:(J> $@;d$O!$$3$l$rKI$0$?$a$K!$$=$NETEY@5$7$$(J alias $@$r3NG'$9$k$h$&$K$7$F$$$^(J$@$9!%(J
$@;01:(J> $@IaCJ$O!$(Jemacs $@$+$i(J mail $@$r=P$9$3$H$,B?$$$N$G!$(Jemacs $@$N(J mail-mode $@$G!$Kv(J
$@;01:(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

$@KM$O(J send-mail-function $@$rDj5A$7$F$^$9!#(J

C-c C-c $@$GAw$k$H$-$K(J alias $@$rE83+$7$F(J, $@FbMF$r3NG'$7$F$+$i=P$9$h$&(J
$@$K$J$j$^$9!#(JC-g $@$GAw$k$N$r;_$a$^$9(J$@!#(J

$@$d$C$D$1$G=q$$$?$N$GITI,MW$KD9$$$H;W$$$^$9$1$I!#NI$+$C$?$i;H$C$F2<(J
$@$5$$!#(J
--
GniiBE
$@;0I)Am9g8&5f=j(J

============== $@$3$3$+$i(J =================
(setq send-mail-function
      (function
       (lambda ()
         (message "Expand aliases...")
         (goto-char (point-max))
         (or (= (preceding-char) ?\n) (insert "\n"))
         (goto-char (point-min))
         (re-search-forward
          (concat "^" (regexp-quote mail-header-separator) "\n"))
         (goto-char (match-beginning 0))
         (if mail-aliases
             (expand-mail-aliases (point-min) (point)))
         (sit-for 0)
         (condition-case err
             (if (pos-visible-in-window-p (point-max))
                 (if (y-or-n-p "Send OK? :")
                     (sendmail-send-it)
                   (signal 'quit nil))
               (let ((ch nil)
                     (loop t)
                     (flag nil))
                 (while loop
                   (setq flag (pos-visible-in-window-p (point-max)))
                   (message
                    (if flag
                        "Type SPC or RET to send,  Type C-g to abort"
                      "SPC: scroll up      DEL: scroll down\
      RET: send mail      C-g: abort"))
                   (setq ch (read-char))
                   (cond ((= ch ?\ )
                          (if flag
                              (setq loop nil)
                            (scroll-up)))
                         ((= ch ?\177)
                          (scroll-down))
                         ((= ch ?\r)
                          (setq loop nil))))
                 (sendmail-send-it)))
           (quit (error "Not send."))
           (error (error "Error %s!  this mail is *NOT* sent." err))))))