dotfiles

commit a955f40dc0d790e2af68fe155d2213bdd2205490
parent 301a13bf370157535b52d35a54b50d0ecfbb78cf
Author: Anders Damsgaard <anders.damsgaard@geo.au.dk>
Date:   Thu, 22 May 2014 08:36:51 +0200

added dired for mail attachments

Diffstat:
M
.emacs.d/init.el
 | 
21
++++++++++++++++++++-

1 file changed, 20 insertions(+), 1 deletion(-)
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
@@ -305,12 +305,30 @@
 (setq mu4e-view-prefer-html t)
 (setq mu4e-html2text-command "html2text -utf8 -width 72") ; debian pkg html2text
 
-
 ;; update interval
 (setq
   mu4e-get-mail-command "offlineimap"   ;; or fetchmail, or ...
   mu4e-update-interval 300)             ;; update every 5 minutes
 
+
+;; manage mu4e attachments with dired. Start dired with M-x dired
+;; Find file and attach with C-c Return C-a
+(require 'gnus-dired)
+;; make the `gnus-dired-mail-buffers' function also work on
+;; message-mode derived modes, such as mu4e-compose-mode
+(defun gnus-dired-mail-buffers ()
+  "Return a list of active message buffers."
+  (let (buffers)
+    (save-current-buffer
+      (dolist (buffer (buffer-list t))
+   (set-buffer buffer)
+   (when (and (derived-mode-p 'message-mode)
+       (null message-sent-message-via))
+     (push (buffer-name buffer) buffers))))
+    (nreverse buffers)))
+(setq gnus-dired-mail-mode 'mu4e-user-agent)
+(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
+
 ;; font config
 (custom-set-variables
  '(send-mail-function (quote smtpmail-send-it)))
@@ -327,3 +345,4 @@
 ;; auto-indent with C-j. If auto-indent also is desired for return, use:
 ;(define-key global-map (kbd "RET") 'newline-and-indent)
 (define-key global-map (kbd "RET") 'reindent-then-newline-and-indent)
+(put 'dired-find-alternate-file 'disabled nil)