pass add mail/[email protected]
pass add mail/[email protected]
uos@guolongji:~$ pass
Password Store
└── mail
    ├── [email protected]
    └── [email protected]

uos@guolongji:~$ tree -L 2 .mail
.mail
├── [email protected]
├── [email protected]
│   ├── deleted
│   ├── dirafts
│   ├── draft
│   ├── in
│   ├── sent
│   └── trash
├── [email protected]
├── 关于组织架构调整与人事任命的通知.pdf
├── 《统信一家人》第15期（2023年12月）.pdf
├── [email protected]
└── [email protected]
    ├── draft
    ├── drafts
    ├── in
    ├── sent
    └── trash

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mu4e 当中搜中文
;; https://emacs-china.org/t/topic/498/11
(setenv "XAPIAN_CJK_NGRAM" "1")

(add-to-list 'load-path "~/.emacs.d/site-lisp/mu4e-1.10.7/")
(require 'mu4e)

(setq mu4e-change-filenames-when-moving t)
(setq mu4e-update-interval (* 10 60))
(setq mu4e-get-mail-command "mbsync -a")
(setq mu4e-maildir "~/.mail/")

;; https://github.com/daviwil/emacs-from-scratch/blob/master/show-notes/Emacs-Mail-02.org
(setq mu4e-contexts
      (list
       ;; Work account
       (make-mu4e-context
        :name "Work"
        :match-func
        (lambda (msg)
          (when msg
            (string-prefix-p "/exmail.com" (mu4e-message-field msg :maildir))))
        :vars '((user-mail-address . "[email protected]")
                (user-full-name    . "Longji Guo")
                (mu4e-drafts-folder  . "/[email protected]/drafts")
                (mu4e-sent-folder  . "/[email protected]/sent")
                (mu4e-refile-folder  . "/[email protected]/archive")
                (mu4e-trash-folder  . "/[email protected]/trash")))

       ;; Personal account
       (make-mu4e-context
        :name "Personal"
        :match-func
        (lambda (msg)
          (when msg
            (string-prefix-p "/qq.com" (mu4e-message-field msg :maildir))))
        :vars '((user-mail-address . "[email protected]")
                (user-full-name    . "allinaent")
                (mu4e-drafts-folder  . "/[email protected]/dirafts")
                (mu4e-sent-folder  . "/[email protected]/sent")
                (mu4e-refile-folder  . "/[email protected]/archive")
                (mu4e-trash-folder  . "/[email protected]/trash")))))


(setq browse-url-browser-function 'browse-url-generic
      browse-url-generic-program "google-chrome")

(setq mu4e-maildir-shortcuts
      '(("/[email protected]/in"     . ?m)
        ("/[email protected]/send" . ?n)
        ("/[email protected]/in"     . ?x)
        ("/[email protected]/send"    . ?y)
        ;;("/exmail.com/All Mail"  . ?a)
        ))

(setq mu4e-bookmarks
      '(("flag:unread AND NOT flag:trashed" "Unread messages"      ?i)
        ("date:today..now"                  "Today's messages"     ?t)
        ("from:stallman"                    "The Boss"             ?s)
        ("date:7d..now"                     "Last 7 days"          ?w)
        ("mime:image/*"                     "Messages with images" ?p)))


(defun my/mu4e-inbox ()
  "jump to mu4e inbox"
  (interactive)
  (mu4e~headers-jump-to-maildir "/[email protected]/Inbox"))

(global-set-key (kbd "C-t C-e") 'my/mu4e-inbox)

(add-to-list 'mu4e-view-actions
             '("XWidget View" . mu4e-action-view-with-xwidget) t)


(setq mu4e-user-mail-address-list (list "[email protected]" "[email protected]"))
(setq message-sendmail-envelope-from 'header)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mu4e Column faces ： mu4e 样式美化
(use-package mu4e-column-faces
    :after mu4e
    :config (mu4e-column-faces-mode))

(add-hook 'mu4e-headers-mode-hook (lambda () (pangu-spacing-mode -1)))
(setq mu4e-headers-fields '((:human-date . 25)  (:from . 35) (:subject . 45)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mu4e-mark-icons
(use-package mu4e-marker-icons)
(setq mu4e-headers-precise-alignment t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mu4e-views
(define-key mu4e-headers-mode-map (kbd "v") #'mu4e-views-mu4e-select-view-msg-method)
(use-package mu4e-views
    :after mu4e
    :defer nil
    :bind (:map mu4e-headers-mode-map
                ("v" . mu4e-views-mu4e-select-view-msg-method) ;; select viewing method
                ("M-n" . mu4e-views-cursor-msg-view-window-down) ;; from headers window scroll the email view
                ("M-p" . mu4e-views-cursor-msg-view-window-up) ;; from headers window scroll the email view
                ("f" . mu4e-views-toggle-auto-view-selected-message) ;; toggle opening messages automatically when moving in the headers view
                ("i" . mu4e-views-mu4e-view-as-nonblocked-html) ;; show currently selected email with all remote content
                )
    :config
    (setq mu4e-views-completion-method 'ivy) ;; use ivy for completion
    (setq mu4e-views-default-view-method "html") ;; make xwidgets default
    (mu4e-views-mu4e-use-view-msg-method "html") ;; select the default
    (setq mu4e-views-next-previous-message-behaviour 'stick-to-current-window) ;; when pressing n and p stay in the current window
    (setq mu4e-views-auto-view-selected-message t)) ;; automatically open messages when moving in the headers view

(add-hook 'mu4e-views-view-actions-mode-hook 'balance-windows) ;; 显示邮件等宽分屏

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; org-mime
;; convert org content in mu4e to html and send
(require 'org-mime)

(setq org-mime-library 'mml)

(setq org-mime-export-options '(:with-latex dvipng
                                :section-numbers nil
                                :with-author nil
                                :with-toc nil))

(defun mu4e-compose-org-mail ()
  (interactive)
  (mu4e-compose-new)
  (org-mu4e-compose-org-mode))

(defun htmlize-and-send ()
  "When in an org-mu4e-compose-org-mode message, htmlize and send it."
  (interactive)
  (when (member 'org~mu4e-mime-switch-headers-or-body post-command-hook)
    (org-mime-htmlize)
    (message-send-and-exit)))

(add-hook 'org-ctrl-c-ctrl-c-hook 'htmlize-and-send t)