diff --git a/init.el b/init.el index 35f47d0..63ac2a2 100644 --- a/init.el +++ b/init.el @@ -127,6 +127,7 @@ If freezing sometimes, decrease it. If stuttering, increase it.") (require 'init-file) (require 'init-proxy) (require 'init-irc) +(require 'init-mail) (setq custom-file (expand-file-name "custom.el" creature/cache-dir)) diff --git a/lisp/init-mail.el b/lisp/init-mail.el new file mode 100644 index 0000000..0dfa5ef --- /dev/null +++ b/lisp/init-mail.el @@ -0,0 +1,29 @@ +;; -*- coding: utf-8; lexical-binding: t; -*- + +(setq user-full-name "Zedhugh Chen" + user-mail-address "605691129@qq.com") +(setq gnus-select-method + '(nnimap "qq mail" + (nnimap-address "imap.qq.com") ; it could also be imap.googlemail.com if that's your server. + (nnimap-server-port "imaps") + (nnimap-stream ssl) + ;; (nnmail-expiry-target "nnimap+gmail:[Gmail]/Trash") ; Move expired messages to Gmail's trash. + (nnmail-expiry-wait immediate) ; Mails marked as expired can be processed immediately. + )) + +(setq smtpmail-smtp-server "smtp.qq.com" + smtpmail-smtp-service 587 + gnus-ignored-newsgroups "^to\\.\\|^[0-9. ]+\\( \\|$\\)\\|^[\"]\"[#'()]") + +(setq send-mail-function 'smtpmail-send-it ;设置邮件发送方法 + message-send-mail-function 'smtpmail-send-it ;设置消息发送方法 + mail-specify-envelope-from t ;发送邮件时指定信封来源 + mail-envelope-from 'header) ;信封来源于 header + +(setq gnus-expert-user t) +(setq gnus-asynchronous t) +(setq message-confirm-send t) +(setq message-kill-buffer-on-exit t) + + +(provide 'init-mail)