Collin J. Doering
224f475a46
Notable changes include:
* .Xdefaults:
- added comments
- switched from url-select to url-picker (for urxvt)
* .bashrc: added some alias' and changed PATH
* .bin/vol.sh: *depreciated*
* .bin/xmonadClose.sh: added experimental timed-action support
* .config/dunst/dunstrc:
- changed transparency to 15%
- issue with getting "follow = v" to work; where v = mouse or keyboard
* .config/systemd/user/emacs.service:
- added a Environment property because it is required with a recent(ish?) update of systemd
* .config/systemd/user/xbindkeys.service:
- added Environment property
- made ExecStart more specific
* .conkerorrc:
- added support for magnet urls
- added firebug-lite support
* .emacs:
- disabled tabs
- enabled column-number-mode
* .ghci: added ghci config file
* .gnus: Many changes to make gnus more usable as a email client (multiple
email support)
* .mpdconf: added password for admin and control access
* .ncmpcpp/config: use new mpd password
* .screenrc: use weechat in place of irssi
* .xbindkeysrc:
- use new mpd password
- pulseaudio_ctl merged with pulseaudio-ctl in AUR. Now using the new version *BROKEN*
* .xinitrc: running "systemd --user" is depreciated (automatically run by logind)
* .xmobarrc: use DynNetwork in place of Network
* .xmonad/xmonad.hs: code clean-up
* .zshrc:
- added new function 'disable_unit_run' which can be used to run a program temporarily
disabling a systemd user unit file
- added alias'
- changed PATH
140 lines
4.5 KiB
Plaintext
140 lines
4.5 KiB
Plaintext
;; File: .gnus
|
|
;; Author: Collin J. Doering <rekahsoft@gmail.com>
|
|
;; Date: Jan 20, 2011
|
|
;; Description: Configuration file for gnus mail reader (in emacs-lisp)
|
|
|
|
(require 'cl)
|
|
(require 'smtpmail)
|
|
|
|
(setq user-mail-address "collin.doering@gmail.com"
|
|
user-full-name "Collin J. Doering"
|
|
smtpmail-smtp-server "smtp.gmail.com"
|
|
smtpmail-smtp-service 587
|
|
smtpmail-auth-credentials "~/.authinfo.gpg"
|
|
message-send-mail-function 'smtpmail-send-it)
|
|
|
|
(setq nnmail-expiry-wait 2
|
|
nnmail-resplit-incoming t)
|
|
|
|
(setq smtpmail-debug-info t)
|
|
|
|
(setq smtpmail-stream-type 'starttls) ;; If using TLS/SSL. Use C-h v smtpmail-stream-type RET to see possible values
|
|
(setq smtp-accounts
|
|
'(("collin.doering@gmail.com" "Collin J. Doering" "smtp.gmail.com")
|
|
("rekahsoft@gmail.com" "rekahsoft" "smtp.gmail.com")))
|
|
|
|
(defun my-change-smtp ()
|
|
(save-excursion
|
|
(loop with from = (save-restriction
|
|
(message-narrow-to-headers)
|
|
(message-fetch-field "from"))
|
|
for (addr fname server) in smtp-accounts
|
|
when (string-match addr from)
|
|
do (setq user-mail-address addr
|
|
user-full-name fname
|
|
smtpmail-smtp-server server
|
|
smtpmail-smtp-user addr))))
|
|
|
|
(defadvice smtpmail-via-smtp
|
|
(before change-smtp-by-message-from-field (recipient buffer &optional ask) activate)
|
|
(with-current-buffer buffer (my-change-smtp)))
|
|
|
|
(ad-activate 'smtpmail-via-smtp)
|
|
|
|
;; setting up posting styles
|
|
(setq gnus-posting-styles
|
|
'((".*"
|
|
(address "rekahsoft@gmail.com")
|
|
(name "Collin J. Doering (RekahSoft)"))
|
|
("collin.doering@gmail.com"
|
|
(address "collin.doering@gmail.com")
|
|
(name "Collin J. Doering"))
|
|
("rekahsoft.mail@gmail.com"
|
|
(address "rekahsoft.mail@gmail.com")
|
|
(name "RekahSoft"))
|
|
("collin.doering@rekahsoft.ca"
|
|
(address "collin.doering@rekahsoft.ca")
|
|
(name "Collin J. Doering"))
|
|
("support@rekahsoft.ca"
|
|
(address "support@rekahsoft.ca")
|
|
(name "Rekahsoft Support"))
|
|
("info@rekahsoft.ca"
|
|
(address "info@rekahsoft.ca")
|
|
(name "RekahSoft Info"))
|
|
))
|
|
|
|
;; set primary select method..
|
|
(setq gnus-select-method '(nnimap "collin.doering"
|
|
(remove-prefix "INBOX.")
|
|
(nnimap-address "imap.gmail.com")
|
|
(nnimap-server-port 993)
|
|
(nnimap-stream ssl)
|
|
(nnimap-authinfo-file "~/.authinfo.gpg")))
|
|
|
|
;; set secondary select methods
|
|
(setq gnus-secondary-select-methods
|
|
'((nnimap "rekahsoft"
|
|
(remove-prefix "INBOX.")
|
|
(nnimap-address "imap.gmail.com")
|
|
(nnimap-server-port 993)
|
|
(nnimap-stream ssl)
|
|
(nnimap-authinfo-file "~/.authinfo.gpg"))
|
|
(nnimap "collin.doering"
|
|
(nnimap-address "hp131.hostpapa.com")
|
|
(nnimap-server-port 993)
|
|
(nnimap-stream ssl)
|
|
(nnimap-authinfo-file "~/.authinfo.gpg"))
|
|
(nnimap "info"
|
|
(nnimap-address "hp131.hostpapa.com")
|
|
(nnimap-server-port 993)
|
|
(nnimap-stream ssl)
|
|
(nnimap-authinfo-file "~/.authinfo.gpg"))
|
|
(nnimap "support"
|
|
(nnimap-address "hp131.hostpapa.com")
|
|
(nnimap-server-port 993)
|
|
(nnimap-stream ssl)
|
|
(nnimap-authinfo-file "~/.authinfo.gpg"))))
|
|
|
|
;; (nnimap "rekahsoft.mail"
|
|
;; (remove-prefix "INBOX.")
|
|
;; (nnimap-address "imap.gmail.com")
|
|
;; (nnimap-server-port 993)
|
|
;; (nnimap-stream ssl)
|
|
;; (nnimap-authinfo-file "~/.rkm-authinfo.gpg"))))
|
|
|
|
(remove-hook 'gnus-mark-article-hook
|
|
'gnus-summary-mark-read-and-unread-as-read)
|
|
(add-hook 'gnus-mark-article-hook 'gnus-summary-mark-unread-as-read)
|
|
|
|
;;gnus-group-line-format's default value was
|
|
;;"%M%S%p%P%5y:%B%(%g%)%l %O\n"
|
|
|
|
;;(setq gnus-group-line-format "%M%S%5y/%-5t: %uG %D\n")
|
|
(setq gnus-group-line-format "%M%S%p%P%5y:%B%(%uG%)%l %O\n")
|
|
|
|
(defun gnus-user-format-function-G (arg)
|
|
(concat (car (cdr gnus-tmp-method)) ":"
|
|
(or (gnus-group-find-parameter gnus-tmp-group 'display-name)
|
|
(let ((prefix (assq 'remove-prefix (cddr gnus-tmp-method))))
|
|
(if (and prefix
|
|
(string-match (concat "^\\("
|
|
(regexp-quote (cadr prefix))
|
|
"\\)")
|
|
gnus-tmp-qualified-group))
|
|
(substring gnus-tmp-qualified-group (match-end 1))
|
|
gnus-tmp-qualified-group)))))
|
|
|
|
(setq gnus-thread-hide-subtree t)
|
|
|
|
(setq gnus-summary-same-subject "")
|
|
(setq gnus-sum-thread-tree-root "")
|
|
(setq gnus-sum-thread-tree-single-indent "")
|
|
(setq gnus-sum-thread-tree-leaf-with-other "+-> ")
|
|
(setq gnus-sum-thread-tree-vertical "|")
|
|
(setq gnus-sum-thread-tree-single-leaf "`-> ")
|
|
|
|
;; (require 'gnus-demon)
|
|
;; (setq gnus-use-demon t)
|
|
;; (gnus-demon-add-handler 'gnus-group-get-new-news 10 2)
|
|
;; (gnus-demon-init)
|