mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

notmuch: Add optional `sender' parameter to notmuch-change-sender

master
Pierre Neidhardt 2019-05-18 15:32:49 +02:00
parent 540cf787e5
commit 43235d6fad
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
.emacs.d/lisp/init-notmuch.el
View File

@ -20,14 +20,15 @@
(:name "drafts" :query "tag:draft" :key ,(kbd "d"))
(:name "all mail" :query "date:2w.." :key ,(kbd "a"))))
(defun notmuch-change-sender ()
(defun ambrevar/notmuch-change-sender (&optional sender)
(interactive)
(unless (derived-mode-p 'message-mode)
(error "Must be in message mode"))
(let ((sender (completing-read "Sender: " (mapcar 'car notmuch-fcc-dirs))))
(message-replace-header "From" sender)
(message-remove-header "Fcc")
(notmuch-fcc-header-setup)))
(unless sender
(setq sender (completing-read "Sender: " (mapcar 'car notmuch-fcc-dirs))))
(message-replace-header "From" sender)
(message-remove-header "Fcc")
(notmuch-fcc-header-setup))
(when (require 'patch-helm nil 'noerror)
(helm-defswitcher