有没有一种方法可以从区域或缓冲区构建电子邮件,设置收件人,然后以elisp代码发送消息?
我已将emacs配置为通过gmail account 发送邮件,并且希望能够通过elisp程序向自己发送电子邮件。使用的命令是message-mail。
最佳答案
这是消息邮件的包装,它提示您输入“收件人”和“主题”行:
(defun my-message-mail-region (b e to subject)
"Send the current region in an email"
(interactive "r\nsRecipient: \nsSubject: ")
(let ((orig-buffer (current-buffer)))
(message-mail to subject)
(message-goto-body)
(insert (save-excursion (set-buffer orig-buffer)
(buffer-substring-no-properties b e)))
(message-send-and-exit)))