Re: wl can't work on XEmacs/FreeBSD

im 
procmail 


w  C-cC-c [1] 

 C-g 

  # bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
  # (unwind-protect ...)
  next-command-event(nil "Send current draft? <y/n/SPC(down)/BS(up)> ")
  (let ((event ...)) (sit-for 0) (while (not ...) (dispatch-event event) (setq event ...)) (cons (and ... ...) event))
  # bind (prompt)
  wl-read-event-char("Send current draft? <y/n/SPC(down)/BS(up)> ")
  (cdr (wl-read-event-char prompt))
  # bind (cursor-in-echo-area)
  (let ((cursor-in-echo-area t)) (cdr (wl-read-event-char prompt)))
  (let ((key ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...)))
  (while t (discard-input) (let (...) (cond ... ... ... ... ...)))
  # (catch done ...)
  (catch (quote done) (while t (discard-input) (let ... ...)))
  # bind (prompt)
  (let ((prompt ...)) (catch (quote done) (while t ... ...)))
  # bind (scroll-by-SPC prompt)
  wl-y-or-n-p-with-scroll("Send current draft? " t)
  # bind (prompt)
  (lambda (prompt) (wl-y-or-n-p-with-scroll prompt (eq wl-draft-send-confirm-type ...)))("Send current draft? ")
  funcall((lambda (prompt) (wl-y-or-n-p-with-scroll prompt (eq wl-draft-send-confirm-type ...))) "Send current draft? ")
  # (unwind-protect ...)
  (save-excursion (goto-char (point-min)) (funcall (if ... wl-draft-send-confirm-type ...) "Send current draft? "))
  (progn (when wl-draft-send-confirm-with-preview (let ... ...)) (save-excursion (goto-char ...) (funcall ... "Send current draft? ")))
  # (condition-case ... . ((quit nil)))
  (condition-case nil (progn (when wl-draft-send-confirm-with-preview ...) (save-excursion ... ...)) (quit nil))
  # (unwind-protect ...)
  (unwind-protect (condition-case nil (progn ... ...) (quit nil)) (when (and wl-draft-send-confirm-with-preview ...) (wl-mime-quit-preview)))
  wl-draft-send-confirm()
  (or (not wl-interactive-send) (wl-draft-send-confirm))
  (if (or (not wl-interactive-send) (wl-draft-send-confirm)) (let (... ... ... ... ... ... ... err) (unwind-protect ... ...)))
  (when (or (not wl-interactive-send) (wl-draft-send-confirm)) (let (... ... ... ... ... ... ... err) (unwind-protect ... ...)))
  # bind (mes-string kill-when-done)
  wl-draft-send(t)
  (lambda nil "Send current draft message and kill it." (interactive) (wl-draft-send t))()
  call-interactively(wl-draft-send-and-exit)
  # (condition-case ... . error)
  # (catch top-level ...)

MTA  sendmail ()

kiri@smtp:~[328]% ps -ax
 PID TT  STAT    TIME COMMAND
1682  -  SsJ  0:00.01 /usr/sbin/syslogd -s
1731  -  IsJ  0:00.00 /usr/local/sbin/skkserv -a 192.168.1.1 -u skkserv
1761  -  IsJ  0:00.00 /usr/sbin/sshd
1767  -  IsJ  0:00.00 sendmail: Queue runner@00:30:00 for /var/spool/clientmque
1771  -  SsJ  0:00.01 /usr/sbin/cron -s
2132  -  SsJ  0:00.21 wmclock
2133  -  SsJ  0:03.98 astime -withdrawn
2134  -  SsJ  0:00.08 xterm
2251  -  SsJ  0:00.08 xterm
2332  -  SsJ  0:00.01 sendmail: accepting connections (sendmail)
2392  -  SsJ  0:00.06 xterm
2405  -  SsJ  0:00.03 xterm
2410  -  IsJ  0:00.01 /usr/local/lib/xemacs-21.4.24/amd64--freebsd/gnuserv
2095 v0  IJ   0:00.11 tcsh
2097 v0  IJ   0:00.01 su kiri
2098 v0  IJ   0:00.09 _su (tcsh)
2100 v0  I+J  0:00.00 /bin/sh /usr/local/bin/startx
2113 v0  I+J  0:00.00 xinit /home/kiri/.xinitrc -- /usr/local/bin/X :0 -auth /h
2114 v0  SJ   0:34.10 /usr/local/bin/X :0 -auth /home/kiri/.serverauth.2100 (Xo
2116 v0  IJ   0:00.02 wmaker
2125 v0  SJ   0:00.07 skkinput -h localhost
2129 v0  SJ   0:01.08 wmaker --for-real
2138  0  IsJ  0:00.09 tcsh
2208  0  IJ   0:00.01 su admin
2209  0  IJ   0:00.09 _su (tcsh)
2211  0  IJ   0:00.01 su
2212  0  I+J  0:00.11 _su (csh)
2253  2  IsJ  0:00.09 tcsh
2255  2  IJ   0:00.01 su admin
2256  2  IJ   0:00.09 _su (tcsh)
2258  2  IJ   0:00.01 su
2259  2  I+J  0:00.10 _su (csh)
2394  3  IsJ  0:00.09 tcsh
2396  3  IJ   0:00.01 su admin
2397  3  IJ   0:00.09 _su (tcsh)
2399  3  IJ   0:00.01 su
2400  3  I+J  0:00.10 _su (csh)
2407  1  SsJ  0:00.10 tcsh
2409  1  SJ   1:34.84 xemacs -unmapped (xemacs-21.4.24)
2424  1  SJ   0:00.09 xv
2451  1  R+J  0:00.00 ps -ax
kiri@smtp:~[329]% 

~/.wl 

(setq wl-smtp-posting-server "localhost")

(FreeBSD-9.1 STABLE)
 wl 
...

[1] https://people.freebsd.org/~kiri/xemacs/wl-send.png

---
KIRIYAMA Kazuhiko