Tweaking the mu4e setup.

This commit is contained in:
larstvei 2014-01-04 06:52:36 +01:00
parent 28da2d329f
commit f0ebf12afc
2 changed files with 30 additions and 24 deletions

27
init.el
View File

@ -184,21 +184,22 @@ PACKAGE is installed and the current version is deleted."
(defvar load-mail-setup nil) (defvar load-mail-setup nil)
(when load-mail-setup (when load-mail-setup
;; Dependent on both mu4e and smtpmail (for sending only). ;; We need mu4e
(require 'mu4e) (require 'mu4e)
(require 'smtpmail)
;; Some basic mu4e settings. ;; Some basic mu4e settings.
(setq mu4e-maildir "~/.ifimail" ; top-level Maildir (setq mu4e-maildir "~/.ifimail" ; top-level Maildir
mu4e-sent-folder "/INBOX.Sent" ; folder for sent messages mu4e-sent-folder "/INBOX.Sent" ; folder for sent messages
mu4e-drafts-folder "/INBOX.Drafts" ; unfinished messages mu4e-drafts-folder "/INBOX.Drafts" ; unfinished messages
mu4e-trash-folder "/INBOX.Trash" ; trashed messages mu4e-trash-folder "/INBOX.Trash" ; trashed messages
mu4e-refile-folder "/INBOX.Archive" ; saved messages mu4e-refile-folder "/INBOX.Archive" ; saved messages
mu4e-get-mail-command "offlineimap" ; use offlineimap to fetch mail mu4e-get-mail-command "offlineimap" ; offlineimap to fetch mail
mu4e-view-show-images t ; view images mu4e-compose-signature "- Lars" ; Sign my name
mu4e-update-interval (* 5 60) ; update every 5 min
mu4e-confirm-quit nil ; just quit
mu4e-view-show-images t ; view images
mu4e-html2text-command mu4e-html2text-command
"html2text -utf8" ; use utf-8 "html2text -utf8" ; use utf-8
mu4e-compose-signature "- Lars" ; Sign my name
) )
;; Setup for sending mail. ;; Setup for sending mail.
@ -218,10 +219,12 @@ PACKAGE is installed and the current version is deleted."
(when (fboundp 'imagemagick-register-types) (when (fboundp 'imagemagick-register-types)
(imagemagick-register-types)) (imagemagick-register-types))
;; A function to show mu4e and nothing else! ;; A wrapper function to start (if necessary), fetch mail and delete other
;; windows.
(defun show-mu4e () (defun show-mu4e ()
(interactive) (interactive)
(mu4e) (mu4e)
(mu4e-update-mail-and-index t)
(delete-other-windows)) (delete-other-windows))
;; Overwrite the native 'compose-mail' binding to 'show-mu4e'. ;; Overwrite the native 'compose-mail' binding to 'show-mu4e'.

View File

@ -373,21 +373,22 @@
(defvar load-mail-setup nil) (defvar load-mail-setup nil)
(when load-mail-setup (when load-mail-setup
;; Dependent on both mu4e and smtpmail (for sending only). ;; We need mu4e
(require 'mu4e) (require 'mu4e)
(require 'smtpmail)
;; Some basic mu4e settings. ;; Some basic mu4e settings.
(setq mu4e-maildir "~/.ifimail" ; top-level Maildir (setq mu4e-maildir "~/.ifimail" ; top-level Maildir
mu4e-sent-folder "/INBOX.Sent" ; folder for sent messages mu4e-sent-folder "/INBOX.Sent" ; folder for sent messages
mu4e-drafts-folder "/INBOX.Drafts" ; unfinished messages mu4e-drafts-folder "/INBOX.Drafts" ; unfinished messages
mu4e-trash-folder "/INBOX.Trash" ; trashed messages mu4e-trash-folder "/INBOX.Trash" ; trashed messages
mu4e-refile-folder "/INBOX.Archive" ; saved messages mu4e-refile-folder "/INBOX.Archive" ; saved messages
mu4e-get-mail-command "offlineimap" ; use offlineimap to fetch mail mu4e-get-mail-command "offlineimap" ; offlineimap to fetch mail
mu4e-view-show-images t ; view images mu4e-compose-signature "- Lars" ; Sign my name
mu4e-update-interval (* 5 60) ; update every 5 min
mu4e-confirm-quit nil ; just quit
mu4e-view-show-images t ; view images
mu4e-html2text-command mu4e-html2text-command
"html2text -utf8" ; use utf-8 "html2text -utf8" ; use utf-8
mu4e-compose-signature "- Lars" ; Sign my name
) )
;; Setup for sending mail. ;; Setup for sending mail.
@ -407,10 +408,12 @@
(when (fboundp 'imagemagick-register-types) (when (fboundp 'imagemagick-register-types)
(imagemagick-register-types)) (imagemagick-register-types))
;; A function to show mu4e and nothing else! ;; A wrapper function to start (if necessary), fetch mail and delete other
;; windows.
(defun show-mu4e () (defun show-mu4e ()
(interactive) (interactive)
(mu4e) (mu4e)
(mu4e-update-mail-and-index t)
(delete-other-windows)) (delete-other-windows))
;; Overwrite the native 'compose-mail' binding to 'show-mu4e'. ;; Overwrite the native 'compose-mail' binding to 'show-mu4e'.