mirror of
				https://github.com/larstvei/dot-emacs.git
				synced 2025-11-04 01:20:11 +00:00 
			
		
		
		
	Remove email stuff
This commit is contained in:
		
							parent
							
								
									7053ac1333
								
							
						
					
					
						commit
						8c8a6cc877
					
				
							
								
								
									
										72
									
								
								init.org
									
									
									
									
									
								
							
							
						
						
									
										72
									
								
								init.org
									
									
									
									
									
								
							@ -584,78 +584,6 @@
 | 
				
			|||||||
         calendar-location-name "Oslo, Norway")
 | 
					         calendar-location-name "Oslo, Norway")
 | 
				
			||||||
   #+END_SRC
 | 
					   #+END_SRC
 | 
				
			||||||
 | 
					
 | 
				
			||||||
** mu4e and offlineimap
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
   I might not be at a computer using my very specific mail-setup, but if my
 | 
					 | 
				
			||||||
   mail-folder exists, then it's probably safe to load.
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
   #+BEGIN_SRC emacs-lisp
 | 
					 | 
				
			||||||
   (defvar load-mail-setup (file-exists-p "~/.ifimail"))
 | 
					 | 
				
			||||||
   #+END_SRC
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
   I use [[http://www.djcbsoftware.nl/code/mu/mu4e.html][mu4e]] (which is a part of [[http://www.djcbsoftware.nl/code/mu/][mu]]) along with [[http://docs.offlineimap.org/en/latest/][offlineimap]] on one of my
 | 
					 | 
				
			||||||
   computers.
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
*** mu4e
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
    mu4e must be informed where it can find your mail and where the
 | 
					 | 
				
			||||||
    different folders of interest are located. Some additional mu4e-tweaks
 | 
					 | 
				
			||||||
    are supplied here as well.
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
 ~message-insert-signature~ is an existing Emacs function, that adds your
 | 
					 | 
				
			||||||
    signature prefixed by a ~"-- "~ at the end of the email, which is a
 | 
					 | 
				
			||||||
    convention I don't really follow. I redefine it as a function that adds
 | 
					 | 
				
			||||||
    some newlines and my signature at the top of the email.
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
    #+BEGIN_SRC emacs-lisp
 | 
					 | 
				
			||||||
    (when load-mail-setup
 | 
					 | 
				
			||||||
      (eval-after-load 'mu4e
 | 
					 | 
				
			||||||
        '(progn
 | 
					 | 
				
			||||||
           ;; Some basic mu4e settings.
 | 
					 | 
				
			||||||
           (setq mu4e-maildir           "~/.ifimail"     ; top-level Maildir
 | 
					 | 
				
			||||||
                 mu4e-sent-folder       "/Sent Items"    ; folder for sent messages
 | 
					 | 
				
			||||||
                 mu4e-drafts-folder     "/INBOX.Drafts"  ; unfinished messages
 | 
					 | 
				
			||||||
                 mu4e-trash-folder      "/INBOX.Trash"   ; trashed messages
 | 
					 | 
				
			||||||
                 mu4e-get-mail-command  "offlineimap"    ; offlineimap to fetch mail
 | 
					 | 
				
			||||||
                 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
 | 
					 | 
				
			||||||
                 "html2text -utf8")                      ; use utf-8
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
           ;; Setup for sending mail.
 | 
					 | 
				
			||||||
           (setq user-full-name
 | 
					 | 
				
			||||||
                 "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
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
           ;; Register file types that can be handled by ImageMagick.
 | 
					 | 
				
			||||||
           (when (fboundp 'imagemagick-register-types)
 | 
					 | 
				
			||||||
             (imagemagick-register-types))
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
           (add-hook 'mu4e-compose-mode-hook
 | 
					 | 
				
			||||||
                     (lambda ()
 | 
					 | 
				
			||||||
                       (auto-fill-mode 0)
 | 
					 | 
				
			||||||
                       (visual-line-mode 1)
 | 
					 | 
				
			||||||
                       (ispell-change-dictionary "norsk")))
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
           (add-hook 'mu4e-view-mode-hook (lambda () (visual-line-mode 1)))
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
           (defun message-insert-signature ()
 | 
					 | 
				
			||||||
             (goto-char (point-min))
 | 
					 | 
				
			||||||
             (search-forward-regexp "^$")
 | 
					 | 
				
			||||||
             (insert "\n\n\n" mu4e-compose-signature))))
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
      (autoload 'mu4e "mu4e" nil t))
 | 
					 | 
				
			||||||
    #+END_SRC
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
** Flyspell
 | 
					** Flyspell
 | 
				
			||||||
 | 
					
 | 
				
			||||||
   Flyspell offers on-the-fly spell checking. We can enable flyspell for all
 | 
					   Flyspell offers on-the-fly spell checking. We can enable flyspell for all
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user