*Backtrace*

_ R*PADのリマインダ登録用メールアドレス調べるの面倒

R*PADの登録用メールアドレスをいちいち調べるのが面倒になってきたので、M-x rpadでいけるようにしてみた。

(defvar rpad-mail-address "XXXXXXX at rpad.jp")
(defun rpad (&optional arg)
  "R*PAD."
  (interactive "P")
  (if arg
      (compose-mail-other-frame rpad-mail-address)
    (compose-mail-other-window rpad-mail-address))
  (mail-position-on-field "Subject"))

mail-user-agentの設定はこんな感じですでにやってある。

(autoload 'wl "wl" nil 'interactive)
(autoload 'wl-draft "wl" nil 'interactive)
(autoload 'wl-user-agent-compose "wl-draft" nil 'interactive)
(when (boundp 'mail-user-agent)
  (setq mail-user-agent 'wl-user-agent))
(when (fboundp 'define-mail-user-agent)
  (define-mail-user-agent
    'wl-user-agent
    'wl-user-agent-compose
    'wl-draft-send
    'wl-draft-kill
    'mail-send-hook))			; no wl-send-hook?

普通の人だったらアドレス帳使うといいと思うんだ。