alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-utils.el: small fixes

Browse Source
This commit is contained in:
djcb
2012-04-22 11:35:11 +03:00
parent 6162b282ce
commit 13a765a5b3
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
emacs/mu4e-utils.el
View File

@ -28,6 +28,7 @@
(require 'cl)
(require 'html2text)
(require 'mu4e-vars)
(require 'doc-view)
(defun mu4e-create-maildir-maybe (dir)
"Offer to create DIR if it does not exist yet. Return t if the
@ -392,8 +393,9 @@ A message plist looks something like:
:path \"/home/tom/Maildir/INBOX/cur/133443243973_1.10027.atlas:2,S\"
:maildir \"/INBOX\"
:priority normal
:flags (seen)
:attachments ((:index 2 :name \"photo.jpg\" :mime-type \"image/jpeg\" :size 147331)
:flags (seen)
:attachments
((:index 2 :name \"photo.jpg\" :mime-type \"image/jpeg\" :size 147331)
(:index 3 :name \"book.pdf\" :mime-type \"application/pdf\" :size 192220))
:references (\"6BDC23465F79238C8384574032D81EE81AF0114E4E74@123213.mail.example.com\"
\"6BDC23465F79238203498230942D81EE81AF0114E4E74@123213.mail.example.com\")
@ -465,7 +467,9 @@ of lines in the e-mail message."
(shell-quote-argument (plist-get msg :path)))))
(pdf (and pdf (substring pdf 0 -1)))) ;; chop \n
(unless (file-exists-p pdf)
(error "Failed to create PDF file"))
(error "Failed to create PDF file"))
(find-file pdf)
(doc-view-fit-width-to-window)
(rename-buffer "*mu4e-view-pdf*")))
(defun mu4e-capture-message (msg)