| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129 |
- (require 'mu4e)
- (require 'org-mu4e)
- (require 'mu4e-contrib)
- (require 'smtpmail)
- (add-hook 'mu4e-compose-mode-hook #'(lambda () (auto-save-mode -1)))
- (auth-source-pass-enable)
- (setq auth-source-debug t)
- (setq auth-source-do-cache nil)
- (setq auth-sources '(password-store))
- (setq message-kill-buffer-on-exit t)
- (setq message-send-mail-function 'smtpmail-send-it)
- (setq mu4e-attachment-dir "~/Downloads")
- (setq mu4e-change-filenames-when-moving t)
- (setq mu4e-completing-read-function 'completing-read)
- (setq mu4e-compose-complete-addresses t)
- (setq mu4e-compose-context-policy nil)
- (setq mu4e-compose-dont-reply-to-self t)
- (setq mu4e-compose-keep-self-cc nil)
- (setq mu4e-context-policy 'pick-first)
- (setq mu4e-get-mail-command "mbsync -a")
- (setq mu4e-headers-date-format "%d-%m-%Y %H:%M")
- (setq mu4e-headers-fields '((:human-date . 20)
- (:flags . 6)
- (:mailing-list . 10)
- (:from . 22)
- (:subject)))
- (setq mu4e-headers-include-related t)
- (setq mu4e-sent-messages-behavior 'delete)
- (setq mu4e-view-show-addresses t)
- (setq mu4e-view-show-images t)
- (setq smtpmail-debug-info t)
- (setq smtpmail-stream-type 'starttls)
- (setq mm-sign-option 'guided)
- (when (fboundp 'imagemagick-register-types)
- (imagemagick-register-types))
- (defun sign-or-encrypt-message ()
- (let ((answer (read-from-minibuffer "Sign or encrypt?\nEmpty to do nothing.\n[s/e]: ")))
- (cond
- ((string-equal answer "s") (progn
- (message "Signing message.")
- (mml-secure-message-sign-pgpmime)))
- ((string-equal answer "e") (progn
- (message "Encrypt and signing message.")
- (mml-secure-message-encrypt-pgpmime)))
- (t (progn
- (message "Dont signing or encrypting message.")
- nil)))))
- (add-hook 'message-send-hook 'sign-or-encrypt-message)
- (setq mu4e-contexts
- `( ,(make-mu4e-context
- :name "gmail"
- :enter-func (lambda ()
- (mu4e-message "Entering gmail context")
- (when (string-match-p (buffer-name (current-buffer)) "mu4e-main")
- (revert-buffer)))
- :leave-func (lambda ()
- (mu4e-message "Leaving gmail context")
- (when (string-match-p (buffer-name (current-buffer)) "mu4e-main")
- (revert-buffer)))
- :match-func (lambda (msg)
- (when msg
- (or (mu4e-message-contact-field-matches msg :to "zadca12@gmail.com")
- (mu4e-message-contact-field-matches msg :from "zadca12@gmail.com")
- (mu4e-message-contact-field-matches msg :cc "zadca12@gmail.com")
- (mu4e-message-contact-field-matches msg :bcc "zadca12@gmail.com")
- (string-match-p "^/gmail/Inbox" (mu4e-message-field msg :maildir)))))
- :vars '( ( user-mail-address . "zadca12@gmail.com" )
- ( smtpmail-smtp-user . "zadca12@gmail.com" )
- ( mu4e-compose-signature . "Adam Salwowski" )
- ( smtpmail-smtp-server . "smtp.gmail.com" )
- ( smtpmail-smtp-service . 587 )
- ( mu4e-maildir-shortcuts . ((:maildir "/gmail/Inbox" :key ?i)))
- ( mu4e-bookmarks
- .
- (( :name "Unread messages"
- :query "maildir:/gmail/Inbox AND flag:unread AND NOT flag:trashed AND NOT outdoorexperten"
- :key ?u)
- ( :name "Today's messages"
- :query "maildir:/gmail/Inbox AND date:today..now"
- :key ?t)
- ( :name "Last 7 days"
- :query "maildir:/gmail/Inbox AND date:7d..now"
- :hide-unread t
- :key ?w)
- ( :name "Deleted"
- :query "flag:trashed"
- :key ?d)
- ( :name "Possibly garbage"
- :query "bokio OR outdoorexperten"
- :key ?g)))))
- ,(make-mu4e-context
- :name "school"
- :enter-func (lambda ()
- (mu4e-message "Entering school context")
- (when (string-match-p (buffer-name (current-buffer)) "mu4e-main")
- (revert-buffer)))
- :leave-func (lambda ()
- (mu4e-message "Leaving school context")
- (when (string-match-p (buffer-name (current-buffer)) "mu4e-main")
- (revert-buffer)))
- :match-func (lambda (msg)
- (when msg
- (or (mu4e-message-contact-field-matches msg :to "150998@student.uwm.edu.pl")
- (mu4e-message-contact-field-matches msg :from "150998@student.uwm.edu.pl")
- (mu4e-message-contact-field-matches msg :cc "150998@student.uwm.edu.pl")
- (mu4e-message-contact-field-matches msg :bcc "150998@student.uwm.edu.pl"))))
- :vars '( ( user-mail-address . "150998@student.uwm.edu.pl" )
- ( smtpmail-smtp-user . "150998@student.uwm.edu.pl" )
- ( smtpmail-smtp-server . "smtp.office365.com" )
- ( smtpmail-smtp-service . 587 )
- ( mu4e-compose-signature . "Adam Salwowski, ISI, indeks: 150998" )
- ( mu4e-maildir-shortcuts . ((:maildir "/outlook/Inbox" :key ?i)))
- ( mu4e-bookmarks
- .
- (( :name "All school mails"
- :query "maildir:/outlook/Inbox"
- :key ?a)
- ( :name "Unread school messages"
- :query "maildir:/outlook/Inbox AND flag:unread AND NOT flag:trashed"
- :key ?u)))))))
|
