Debugger entered--Lisp error: (wrong-type-argument listp mu4e-sent-folder) car(mu4e-sent-folder) (set (car var) (cadr var)) (lambda (var) (set (car var) (cadr var)))(mu4e-sent-folder) mapc((lambda (var) (set (car var) (cadr var))) (mu4e-sent-folder "/Gmail/Sent" mu4e-drafts-folder "/Gmail/Drafts" mu4e-trash-folder "/Gmail/Trash" mu4e-spam-folder "/Gmail/Spam" (user-mail-address "str...@gmail.com") (user-full-name "str str") (mu4e-compose-signature "-- str str str --") (smtpmail-stream-type (quote starttls)) (smtpmail-starttls-credentials (quote (("smtp.gmail.com" 587 nil nil)))) (smtpmail-auth-credentials (quote (("smtp.gmail.com" 587 "str...@gmail.com" nil)))) (smtpmail-default-smtp-server "smtp.gmail.com") (smtpmail-smtp-service 587))) (if account-vars (mapc (function (lambda (var) (set (car var) (cadr var)))) account-vars) (error "No email account found")) (let* ((account (if mu4e-compose-parent-message (let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir))) (string-match "/\\(.*?\\)/" maildir) (match-string 1 maildir)) (completing-read (format "Compose with account: (%s) " (mapconcat (function ...) my-mu4e-account-alist "/")) (mapcar (function (lambda ... ...)) my-mu4e-account-alist) nil t nil nil (caar my-mu4e-account-alist)))) (account-vars (cdr (assoc account my-mu4e-account-alist)))) (if account-vars (mapc (function (lambda (var) (set (car var) (cadr var)))) account-vars) (error "No email account found"))) my-mu4e-set-account() run-hooks(mu4e-compose-pre-hook) byte-code("\306\301!\210##\307\301\310\311#\210\312\313!\210\314\315\316\217\210\317 \210\212db\210\n\314#\211#\2039#\f@#\320\321#\322\"\321#\323\"\"\210\fA\211#\204$#+\324 !\210\325\314!\210 \326\235\203N#\327 \210\202Q#\330 \210\306\301!\210##\307\301\310\311#\210\331 \210\332 \207" [original-msg mu4e-compose-parent-message includes att --dolist-tail-- compose-type make-local-variable put permanent-local t run-hooks mu4e-compose-pre-hook nil (mu4e-draft-open compose-type original-msg) ((quit (byte-code "\300 \210\301\302!\210\303\304\305\"\207" [kill-buffer message "[mu4e] Operation aborted" throw --cl-block-mu4e~compose-handler-- nil] 3))) mu4e~draft-insert-mail-header-separator mml-attach-file plist-get :file-name :mime-type mu4e~compose-set-friendly-buffer-name set-buffer-modified-p (new forward) message-goto-to message-goto-body mu4e~compose-hide-headers mu4e-compose-mode] 6) mu4e~compose-handler(new) mu4e-compose(new) mu4e-compose-new() call-interactively(mu4e-compose-new nil nil) command-execute(mu4e-compose-new)
;; 0xax.blogspot.com/2014/11/emacs-mu4e-offlineimap-multiply-accounts.html ;; vxlabs.com/2014/06/06/configuring-emacs-mu4e-with-nullmailer-offlineimap-and-multiple-identities/ ;; www.djcbsoftware.nl/code/mu/mu4e/Multiple-accounts.html ;; interesting settings \ config at https://github.com/mardukbp/dotfiles/blob/master/emacs.d/mb-mu4e.el (require 'mu4e) (require 'smtpmail) (require 'starttls) ;; Default Maildir location and account ;;(setq mu4e-maildir "~/Maildir" ;; mu4e-sent-folder "/Gmail/Sent" ;; mu4e-drafts-folder "/Gmail/Drafts" ;; mu4e-trash-folder "/Gmail/Trash" ;; mu4e-spam-folder "/Gmail/Spam" ;; ;; identification ;; user-mail-address "str...@gmail.com" ;; user-full-name "Str Str" ;; mu4e-compose-signature "Kind regards,\nStr" ;; smtp ;; smtpmail-stream-type 'starttls ;; smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil)) ;; smtpmail-auth-credentials '(("smtp.gmail.com" 587 "str...@gmail.com" nil)) ;; smtpmail-default-smtp-server "smtp.gmail.com" ;; smtpmail-smtp-service 587 ;;) (setq ;; General ;; program to get mail, invoked with 'U' in main view mu4e-get-mail-command "offlineimap" mu4e-update-interval 300 ;; don't keep message buffers around message-kill-buffer-on-exit t ;; use 'fancy' non-ascii characters in various places in mu4e mu4e-use-fancy-chars t ;; save attachments (this can also be a function) mu4e-attachment-dir "~/Downloads/attachments" ;; don't save message to Sent Mail, Gmail/IMAP handles this ;; refer to documentation on mu4e-sent-messages-behaviour for iCloud mu4e-sent-messages-behavior 'delete ;; smtp message-send-mail-function 'smtpmail-send-it smtpmail-stream-type 'starttls ;; insert signature mu4-compose-signature-auto-include t ;; keybindins / shortcuts for frequently used maildirs: ;; access them with 'j' ('jump'); i.e. switch to Gmail/INBOX using 'jg' mu4e-maildir-shortcuts '(("/Gmail/INBOX" . ?g) ("/Gmail/Sent" . ?f) ("/Gmail/Drafts" . ?d) ;; ("/Gmail/Spam" . ?f) ;; ("/Gmail/Trash" . ?a) ("/strGmail/INBOX" . ?l) ("/strGmail/Sent" . ?k) ("/strGmail/Drafts" . ?j) ;; ("/strGmail/Spam" . ?j) ;; ("/strGmail/Trash" . ?t) ("/iCloud/INBOX" . ?i) ("/iCloud/Sent" . ?u) ("/iCloud/Drafts" . ?y) ;; ("/iCloud/Spam" . ?u) ;; ("/iCloud/Trash" . ?y) ) ) ;; Additional customization ;; format date-time stamp in the header list (setq mu4e-headers-date-format "%d-%m-%Y %H:%M") ;; customise the reply-quote-string ;; M-x find-function RET message-citation-line-format for docs (setq message-citation-line-format "%N @ %d-%m-%Y %H:M %Z:\n") (setq message-citation-line-function 'message-insert-formatted-citation-line) ;; show full addresses in view messages (instead of just names), group related and ignore duplicates (setq mu4e-view-show-addresses t mu4e-headers-include-related t mu4e-headers-skip-duplicates t) ;; mu4e-action-view-in-browser is built into mu4e ;; by adding it to these lists of custom actions ;; it can be invoked by first pressing a, then selecting ;;(add-to-list 'mu4e-headers-actions ;; '("in browser" . mu4e-action-view-in-browser) t) ;;(add-to-list 'mu4e-view-actions ;; '("in browser" . mu4e-action-view-in-browser) t) ;; the headers to show in the headers list -- a pair of a field ;; and its width, with 'nil' meaning 'unlimited' (setq mu4e-headers-fields '( (:date . 25) (:flags . 6) (:from . 22) (:subject . nil))) ;; attempt to show images when viewing messages (setq mu4e-view-show-images t) (when (fboundp 'imagemagick-register-types) (imagemagick-register-types)) ;; external command for html->text conversion (setq mu4e-view-prefer-html t) ;; (setq mu4e-html2text-command "html2text -utf8 -width 72") (setq mu4e-html2text-command "html2text") (setq mail-user-agent 'mu4e-user-agent) ;; Show smileys (add-hook 'mu4e-view-mode-hook 'smiley-buffer) ;; suppress constant update messages from offlineimap and mu index in minibuffer (setq mu4e-hide-index-messages t) ;; Description of all accounts, which must be identical to corresponding directory name under ~/Maildir (defvar my-mu4e-account-alist '(("Gmail" ;; maildir ;;mu4e-maildir "~/Maildir/Gmail" mu4e-sent-folder "/Gmail/Sent" mu4e-drafts-folder "/Gmail/Drafts" mu4e-trash-folder "/Gmail/Trash" mu4e-spam-folder "/Gmail/Spam" ;; identification (user-mail-address "str...@gmail.com") (user-full-name "Str Str") (mu4e-compose-signature "Kind regards,\n Str") ;; smtp (smtpmail-stream-type 'starttls) (smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))) (smtpmail-auth-credentials '(("smtp.gmail.com" 587 "str...@gmail.com" nil))) ;; (smtpmail-auth-credentials "~/.authinfo.gpg") (smtpmail-default-smtp-server "smtp.gmail.com") (smtpmail-smtp-service 587)) ("strGmail" ;; maildir ;;mu4e-maildir "~/Maildir/strGmail" mu4e-sent-folder "/strGmail/Sent" mu4e-drafts-folder "/strGmail/Drafts" mu4e-trash-folder "/strGmail/Trash" mu4e-spam-folder "/strGmail/Spam" ;; identification (user-mail-address "str...@gmail.com") (user-full-name "str str") ;; must add sig file (mu4e-compose-signature "-- str str str str --") ;; smtp (smtpmail-stream-type 'starttls) (smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))) (smtpmail-auth-credentials '(("smtp.gmail.com" 587 "str...@gmail.com" nil))) (smtpmail-default-smtp-server "smtp.gmail.com") (smtpmail-smtp-service 587)) ("iCloud" ;; maildir ;;mu4e-maildir "~/Maildir/iCloud" mu4e-sent-folder "/iCloud/Sent" mu4e-drafts-folder "/iCloud/Drafts" mu4e-trash-folder "/iCloud/Trash" mu4e-spam-folder "/iCloud/Junk" ;; identification (user-mail-address "str...@icloud.com") (user-full-name "Str Str") (mu4e-compose-signature "Kind regards,\nStr") ;; smtp (smtpmail-stream-type 'starttls) (smtpmail-starttls-credentials '(("smtp.mail.me.com" 587 nil nil))) (smtpmail-auth-credentials '(("smtp.mail.me.com" 587 "str...@icloud.com" nil))) (smtpmail-default-smtp-server "smtp.mail.me.com") (smtpmail-smtp-service 587)) )) ;; Function for handling account switching for mail composition ;; my-mu4e-set-account will be called every time you edit a message. When composing a new message will be asked to choose account to send from (TAB completion works) ;; Replying, forwarding, editing an existing draft, account will be chosen automatically based on the first componenet of the maildir (i.e. directory under ~/Maildir) (defun my-mu4e-set-account () "Set the account for composing a message." (let* ((account (if mu4e-compose-parent-message (let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir))) (string-match "/\\(.*?\\)/" maildir) (match-string 1 maildir)) (completing-read (format "Compose with account: (%s) " (mapconcat #'(lambda (var) (car var)) my-mu4e-account-alist "/")) (mapcar #'(lambda (var) (car var)) my-mu4e-account-alist) nil t nil nil (caar my-mu4e-account-alist)))) (account-vars (cdr (assoc account my-mu4e-account-alist)))) (if account-vars (mapc #'(lambda (var) (set (car var) (cadr var))) account-vars) (error "No email account found")))) (add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account) ;; Preserve email account of a draft when starting another draft with another account (defun cpb-make-buffer-local () (make-local-variable 'mu4e-compose-signature) (make-local-variable 'user-mail-address) (flyspell-mode) ) ;; (add-hook 'mu4e-compose-mode-hook 'cpb-make-buffer-local)
--
You received this message because you are subscribed to a topic in the Google Groups "mu-discuss" group.
To unsubscribe from this topic, visit https://groups.google.com/d/topic/mu-discuss/Tet6VeqOUdg/unsubscribe.
To unsubscribe from this group and all its topics, send an email to mu-discuss+...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.