larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2025-11-04 09:20:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Switch from let to defvar in Mail section.

Browse Source
This commit is contained in:
larstvei 2014-01-04 06:21:16 +01:00
parent 0df4413d48
commit 28da2d329f
2 changed files with 85 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
init.el
View File

@ -181,8 +181,9 @@ 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
(when load-mail-setup
;; Dependent on both mu4e and smtpmail (for sending only). ;; Dependent on both mu4e and smtpmail (for sending only).
(require 'mu4e) (require 'mu4e)
(require 'smtpmail) (require 'smtpmail)
@ -224,7 +225,7 @@ PACKAGE is installed and the current version is deleted."
(delete-other-windows)) (delete-other-windows))
;; Overwrite the native 'compose-mail' binding to 'show-mu4e'. ;; Overwrite the native 'compose-mail' binding to 'show-mu4e'.
(global-set-key (kbd "C-x m") '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)

5
init.org
View File

@ -370,7 +370,8 @@
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 (when load-mail-setup
;; Dependent on both mu4e and smtpmail (for sending only). ;; Dependent on both mu4e and smtpmail (for sending only).
(require 'mu4e) (require 'mu4e)
@ -413,7 +414,7 @@
(delete-other-windows)) (delete-other-windows))
;; Overwrite the native 'compose-mail' binding to 'show-mu4e'. ;; Overwrite the native 'compose-mail' binding to 'show-mu4e'.
(global-set-key (kbd "C-x m") 'show-mu4e))) (global-set-key (kbd "C-x m") 'show-mu4e))
#+END_SRC #+END_SRC
** Flyspell ** Flyspell