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

mu4e: cosmetic

Browse Source 
Clear up some overly long lines.
This commit is contained in:
djcb
2017-01-03 17:45:03 +02:00
parent de2329dbde
commit ec064c5f9e
1 changed files with 48 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
mu4e/mu4e-actions.el
View File

@ -89,12 +89,17 @@ return the filename."
;; rewrite attachment urls ;; rewrite attachment urls
(mapc (lambda (attachment) (mapc (lambda (attachment)
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward (format "src=\"cid:%s\"" (plist-get attachment :cid)) nil t) (while (re-search-forward (format "src=\"cid:%s\""
(plist-get attachment :cid)) nil t)
(if (plist-get attachment :temp) (if (plist-get attachment :temp)
(replace-match (format "src=\"%s\"" (plist-get attachment :temp))) (replace-match (format "src=\"%s\"" (plist-get attachment :temp)))
(replace-match (format "src=\"%s%s\"" temporary-file-directory (plist-get attachment :name))) (replace-match (format "src=\"%s%s\"" temporary-file-directory
(let ((tmp-attachment-name (format "%s%s" temporary-file-directory (plist-get attachment :name)))) (plist-get attachment :name)))
(mu4e~proc-extract 'save (mu4e-message-field msg :docid) (plist-get attachment :index) mu4e-decryption-policy tmp-attachment-name) (let ((tmp-attachment-name (format "%s%s" temporary-file-directory
(plist-get attachment :name))))
(mu4e~proc-extract 'save (mu4e-message-field msg :docid)
(plist-get attachment :index)
mu4e-decryption-policy tmp-attachment-name)
(mu4e-remove-file-later tmp-attachment-name))))) (mu4e-remove-file-later tmp-attachment-name)))))
attachments) attachments)
(save-buffer) (save-buffer)
@ -120,7 +125,7 @@ aspects in `(mu4e) Displaying rich-text messages'."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst mu4e-text2speech-command "festival --tts" (defconst mu4e-text2speech-command "festival --tts"
"Program that speaks out text it receives on standard-input.") "Program that speaks out text it receives on standard-input.")
@ -276,10 +281,13 @@ bother asking for the git tree again (useful for bulk actions)."
(path (mu4e-message-field msg :path)) (path (mu4e-message-field msg :path))
(maildir (mu4e-message-field msg :maildir)) (maildir (mu4e-message-field msg :maildir))
(oldtags (mu4e-message-field msg :tags)) (oldtags (mu4e-message-field msg :tags))
(tags-completion (append (tags-completion
(append
mu4e-action-tags-completion-list mu4e-action-tags-completion-list
(mapcar (lambda (tag) (format "+%s" tag)) mu4e-action-tags-completion-list) (mapcar (lambda (tag) (format "+%s" tag))
(mapcar (lambda (tag) (format "-%s" tag)) oldtags))) mu4e-action-tags-completion-list)
(mapcar (lambda (tag) (format "-%s" tag))
oldtags)))
(retag (if retag-arg (retag (if retag-arg
(split-string retag-arg ",") (split-string retag-arg ",")
(completing-read-multiple "Tags: " tags-completion))) (completing-read-multiple "Tags: " tags-completion)))