ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

emacs/init: Obfuscate emails a little

Browse source
This commit is contained in:
Tom Willemsen 2012-08-24 10:51:47 +02:00
parent 19a13b82ff
commit 887438d81b
1 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
emacs/init.el
View file

@ -65,6 +65,11 @@
message-sendmail-extra-arguments '("-a" ,name) message-sendmail-extra-arguments '("-a" ,name)
message-signature-file ,signature))) message-signature-file ,signature)))
(defmacro oni:email (user at host dot com)
"Turn arguments into an email address."
(concat (symbol-name user) "@" (symbol-name host) "."
(symbol-name com)))
(defmacro oni:generic-outline (regex) (defmacro oni:generic-outline (regex)
"Prepare for enabling `outline-minor-mode'." "Prepare for enabling `outline-minor-mode'."
`(progn `(progn
@ -213,16 +218,19 @@ for easy selection."
" :EMAIL: %(mu4e-view-snarf-from 'email)\n" " :EMAIL: %(mu4e-view-snarf-from 'email)\n"
" :END:")))) " :END:"))))
(oni:define-mailbox (oni:define-mailbox "aethon"
"aethon" "thomas@aethon.nl" (oni:email thomas at aethon dot nl)
(expand-file-name "~/documents/work/aethon/signature.txt")) (expand-file-name "~/documents/work/aethon/signature.txt"))
(oni:define-mailbox "gmail" "ryuslash@gmail.com") (oni:define-mailbox "gmail" (oni:email ryuslash at gmail dot com))
(oni:define-mailbox "ninthfloor" "ryuslash@ninthfloor.org") (oni:define-mailbox "ninthfloor"
(oni:define-mailbox "ryuslash" "tom@ryuslash.org" nil "ryuslash.org") (oni:email ryuslash at ninthfloor dot org))
(oni:define-mailbox "ryuslash" (oni:email tom at ryuslash dot org)
nil "ryuslash.org")
(setq-default c-basic-offset 4) (setq-default c-basic-offset 4)
(setq-default fci-rule-column 73) (setq-default fci-rule-column 73)
(setq avandu-article-render-function #'avandu-view-w3m)
(setq fci-rule-color "darkred") (setq fci-rule-color "darkred")
(setq inferior-lisp-program "sbcl") (setq inferior-lisp-program "sbcl")
(setq jabber-account-list '(("ryuslash@jabber.org"))) (setq jabber-account-list '(("ryuslash@jabber.org")))
@ -243,6 +251,11 @@ for easy selection."
(:subject))) (:subject)))
(setq mu4e-headers-show-threads nil) (setq mu4e-headers-show-threads nil)
(setq mu4e-headers-sort-revert nil) (setq mu4e-headers-sort-revert nil)
(setq mu4e-my-email-addresses (list
(oni:email tom at ryuslash dot org)
(oni:email ryuslash at gmail dot com)
(oni:email ryuslash at ninthfloor dot org)
(oni:email thomas at aethon dot nl)))
(setq package-archives (setq package-archives
'(("melpa" . "http://melpa.milkbox.net/packages/") '(("melpa" . "http://melpa.milkbox.net/packages/")
("ELPA" . "http://tromey.com/elpa/") ("ELPA" . "http://tromey.com/elpa/")