mirror of
https://github.com/larstvei/dot-emacs.git
synced 2025-11-04 09:20:11 +00:00
Switch from let to defvar in Mail section.
This commit is contained in:
larstvei
parent
0df4413d48
commit
28da2d329f
79
init.el
79
init.el
@ -181,50 +181,51 @@ PACKAGE is installed and the current version is deleted."
|
|||||||
calendar-longitude 10.7
|
calendar-longitude 10.7
|
||||||
calendar-location-name "Oslo, Norway")
|
calendar-location-name "Oslo, Norway")
|
||||||
|
|
||||||
(let ((load-mail-setup nil))
|
(defvar load-mail-setup nil)
|
||||||
(when load-mail-setup
|
|
||||||
;; Dependent on both mu4e and smtpmail (for sending only).
|
|
||||||
(require 'mu4e)
|
|
||||||
(require 'smtpmail)
|
|
||||||
|
|
||||||
;; Some basic mu4e settings.
|
(when load-mail-setup
|
||||||
(setq mu4e-maildir "~/.ifimail" ; top-level Maildir
|
;; Dependent on both mu4e and smtpmail (for sending only).
|
||||||
mu4e-sent-folder "/INBOX.Sent" ; folder for sent messages
|
(require 'mu4e)
|
||||||
mu4e-drafts-folder "/INBOX.Drafts" ; unfinished messages
|
(require 'smtpmail)
|
||||||
mu4e-trash-folder "/INBOX.Trash" ; trashed messages
|
|
||||||
mu4e-refile-folder "/INBOX.Archive" ; saved messages
|
|
||||||
mu4e-get-mail-command "offlineimap" ; use offlineimap to fetch mail
|
|
||||||
mu4e-view-show-images t ; view images
|
|
||||||
mu4e-html2text-command
|
|
||||||
"html2text -utf8" ; use utf-8
|
|
||||||
mu4e-compose-signature "- Lars" ; Sign my name
|
|
||||||
)
|
|
||||||
|
|
||||||
;; Setup for sending mail.
|
;; Some basic mu4e settings.
|
||||||
(setq user-full-name
|
(setq mu4e-maildir "~/.ifimail" ; top-level Maildir
|
||||||
"Lars Tveito" ; Your full name
|
mu4e-sent-folder "/INBOX.Sent" ; folder for sent messages
|
||||||
user-mail-address
|
mu4e-drafts-folder "/INBOX.Drafts" ; unfinished messages
|
||||||
"larstvei@ifi.uio.no" ; And email-address
|
mu4e-trash-folder "/INBOX.Trash" ; trashed messages
|
||||||
smtpmail-smtp-server
|
mu4e-refile-folder "/INBOX.Archive" ; saved messages
|
||||||
"smtp.uio.no" ; Host to mail-server
|
mu4e-get-mail-command "offlineimap" ; use offlineimap to fetch mail
|
||||||
smtpmail-smtp-service 465 ; Port to mail-server
|
mu4e-view-show-images t ; view images
|
||||||
smtpmail-stream-type 'ssl ; Protocol used for sending
|
mu4e-html2text-command
|
||||||
send-mail-function 'smtpmail-send-it ; Use smpt to send
|
"html2text -utf8" ; use utf-8
|
||||||
mail-user-agent 'mu4e-user-agent ; Use mu4e!
|
mu4e-compose-signature "- Lars" ; Sign my name
|
||||||
)
|
)
|
||||||
|
|
||||||
;; Register file types that can be handled by ImageMagick.
|
;; Setup for sending mail.
|
||||||
(when (fboundp 'imagemagick-register-types)
|
(setq user-full-name
|
||||||
(imagemagick-register-types))
|
"Lars Tveito" ; Your full name
|
||||||
|
user-mail-address
|
||||||
|
"larstvei@ifi.uio.no" ; And email-address
|
||||||
|
smtpmail-smtp-server
|
||||||
|
"smtp.uio.no" ; Host to mail-server
|
||||||
|
smtpmail-smtp-service 465 ; Port to mail-server
|
||||||
|
smtpmail-stream-type 'ssl ; Protocol used for sending
|
||||||
|
send-mail-function 'smtpmail-send-it ; Use smpt to send
|
||||||
|
mail-user-agent 'mu4e-user-agent ; Use mu4e!
|
||||||
|
)
|
||||||
|
|
||||||
;; A function to show mu4e and nothing else!
|
;; Register file types that can be handled by ImageMagick.
|
||||||
(defun show-mu4e ()
|
(when (fboundp 'imagemagick-register-types)
|
||||||
(interactive)
|
(imagemagick-register-types))
|
||||||
(mu4e)
|
|
||||||
(delete-other-windows))
|
|
||||||
|
|
||||||
;; Overwrite the native 'compose-mail' binding to 'show-mu4e'.
|
;; A function to show mu4e and nothing else!
|
||||||
(global-set-key (kbd "C-x m") 'show-mu4e)))
|
(defun show-mu4e ()
|
||||||
|
(interactive)
|
||||||
|
(mu4e)
|
||||||
|
(delete-other-windows))
|
||||||
|
|
||||||
|
;; Overwrite the native 'compose-mail' binding to 'show-mu4e'.
|
||||||
|
(global-set-key (kbd "C-x m") 'show-mu4e))
|
||||||
|
|
||||||
(add-hook 'text-mode-hook 'turn-on-flyspell)
|
(add-hook 'text-mode-hook 'turn-on-flyspell)
|
||||||
|
|
||||||
|
|||||||
79
init.org
79
init.org
@ -370,50 +370,51 @@
|
|||||||
a =non-nil= value mail is setup.
|
a =non-nil= value mail is setup.
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp :tangle yes
|
#+BEGIN_SRC emacs-lisp :tangle yes
|
||||||
(let ((load-mail-setup nil))
|
(defvar load-mail-setup nil)
|
||||||
(when load-mail-setup
|
|
||||||
;; Dependent on both mu4e and smtpmail (for sending only).
|
|
||||||
(require 'mu4e)
|
|
||||||
(require 'smtpmail)
|
|
||||||
|
|
||||||
;; Some basic mu4e settings.
|
(when load-mail-setup
|
||||||
(setq mu4e-maildir "~/.ifimail" ; top-level Maildir
|
;; Dependent on both mu4e and smtpmail (for sending only).
|
||||||
mu4e-sent-folder "/INBOX.Sent" ; folder for sent messages
|
(require 'mu4e)
|
||||||
mu4e-drafts-folder "/INBOX.Drafts" ; unfinished messages
|
(require 'smtpmail)
|
||||||
mu4e-trash-folder "/INBOX.Trash" ; trashed messages
|
|
||||||
mu4e-refile-folder "/INBOX.Archive" ; saved messages
|
|
||||||
mu4e-get-mail-command "offlineimap" ; use offlineimap to fetch mail
|
|
||||||
mu4e-view-show-images t ; view images
|
|
||||||
mu4e-html2text-command
|
|
||||||
"html2text -utf8" ; use utf-8
|
|
||||||
mu4e-compose-signature "- Lars" ; Sign my name
|
|
||||||
)
|
|
||||||
|
|
||||||
;; Setup for sending mail.
|
;; Some basic mu4e settings.
|
||||||
(setq user-full-name
|
(setq mu4e-maildir "~/.ifimail" ; top-level Maildir
|
||||||
"Lars Tveito" ; Your full name
|
mu4e-sent-folder "/INBOX.Sent" ; folder for sent messages
|
||||||
user-mail-address
|
mu4e-drafts-folder "/INBOX.Drafts" ; unfinished messages
|
||||||
"larstvei@ifi.uio.no" ; And email-address
|
mu4e-trash-folder "/INBOX.Trash" ; trashed messages
|
||||||
smtpmail-smtp-server
|
mu4e-refile-folder "/INBOX.Archive" ; saved messages
|
||||||
"smtp.uio.no" ; Host to mail-server
|
mu4e-get-mail-command "offlineimap" ; use offlineimap to fetch mail
|
||||||
smtpmail-smtp-service 465 ; Port to mail-server
|
mu4e-view-show-images t ; view images
|
||||||
smtpmail-stream-type 'ssl ; Protocol used for sending
|
mu4e-html2text-command
|
||||||
send-mail-function 'smtpmail-send-it ; Use smpt to send
|
"html2text -utf8" ; use utf-8
|
||||||
mail-user-agent 'mu4e-user-agent ; Use mu4e!
|
mu4e-compose-signature "- Lars" ; Sign my name
|
||||||
)
|
)
|
||||||
|
|
||||||
;; Register file types that can be handled by ImageMagick.
|
;; Setup for sending mail.
|
||||||
(when (fboundp 'imagemagick-register-types)
|
(setq user-full-name
|
||||||
(imagemagick-register-types))
|
"Lars Tveito" ; Your full name
|
||||||
|
user-mail-address
|
||||||
|
"larstvei@ifi.uio.no" ; And email-address
|
||||||
|
smtpmail-smtp-server
|
||||||
|
"smtp.uio.no" ; Host to mail-server
|
||||||
|
smtpmail-smtp-service 465 ; Port to mail-server
|
||||||
|
smtpmail-stream-type 'ssl ; Protocol used for sending
|
||||||
|
send-mail-function 'smtpmail-send-it ; Use smpt to send
|
||||||
|
mail-user-agent 'mu4e-user-agent ; Use mu4e!
|
||||||
|
)
|
||||||
|
|
||||||
;; A function to show mu4e and nothing else!
|
;; Register file types that can be handled by ImageMagick.
|
||||||
(defun show-mu4e ()
|
(when (fboundp 'imagemagick-register-types)
|
||||||
(interactive)
|
(imagemagick-register-types))
|
||||||
(mu4e)
|
|
||||||
(delete-other-windows))
|
|
||||||
|
|
||||||
;; Overwrite the native 'compose-mail' binding to 'show-mu4e'.
|
;; A function to show mu4e and nothing else!
|
||||||
(global-set-key (kbd "C-x m") 'show-mu4e)))
|
(defun show-mu4e ()
|
||||||
|
(interactive)
|
||||||
|
(mu4e)
|
||||||
|
(delete-other-windows))
|
||||||
|
|
||||||
|
;; Overwrite the native 'compose-mail' binding to 'show-mu4e'.
|
||||||
|
(global-set-key (kbd "C-x m") 'show-mu4e))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
** Flyspell
|
** Flyspell
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user