我不能让与POP3 .authinfo
文件的工作,所以我跟着Keeping your secrets secret博文(感谢phils的链接)。我在我的加载路径中创建了三个文件。 secrets.el:
(load-library "secrets.el.gpg")
(provide 'secrets)
secrets.el.gpg:
(setq password-alist
'((:mbox1 . "pAsSwOrD")
(:mbox2 . "correct horse battery staple")
(:mbox3 . "qwfpgj")))
mail.el:
(defun load-mail-passwords()
"Load passwords for mail sources from secrets.el.gpg"
(require 'secrets)
(setq mail-sources
`((pop :server "pop.server.org"
:port 995
:user "[email protected]"
:password ,(rest (assoc :mbox1 password-alist)))
))
(setq smtpmail-auth-credentials `(("smtp.server.org" "465" "[email protected]"
,(rest (assoc :mbox1 password-alist))))))
(add-hook 'gnus-load-hook 'load-mail-passwords)
,我也把(load "~/.emacs.d/mail.el")
我的初始化文件,因为某种原因,我~/.emacs.d/
加载路径中的文件夹未被自动加载。
反引号就像撇号(引号),但它允许一些表达式使用逗号不加引号。 (rest (assoc :keyword alist))
组合用于获取关联列表中的虚线对的第二部分。
你可以把它们放到'〜/ .authinfo'文件并加密。 gnus只会首次询问你的密码来解密它。 – kindahero 2012-03-26 16:00:44
@ kindahero:要自动加密/解密它,您可以将其重命名为'.authinfo.gpg'。 – Daimrod 2012-03-26 16:14:32