emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e: cosmetics

This commit is contained in:
djcb 2012-09-28 17:10:34 +03:00
parent 8b5664fcfc
commit c7bb9aef9a
3 changed files with 26 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mu4e/mu4e-compose.el
View File

@ -56,13 +56,12 @@ the From: address.)"
(defcustom mu4e-sent-messages-behavior 'sent
"Determines what mu4e does with sent messages - this is a symbol
which can be either:
'sent --> move the sent message to the Sent-folder (`mu4e-sent-folder')
'trash --> move the sent message to the Trash-folder (`mu4e-trash-folder')
'delete --> delete the sent message.
Note, when using GMail/IMAP, you should set this to either 'trash
or 'delete, since GMail already takes care of keeping copies in the
sent folder."
which can be either: 'sent --> move the sent message to the
Sent-folder (`mu4e-sent-folder') 'trash --> move the sent message
to the Trash-folder (`mu4e-trash-folder') 'delete --> delete the
sent message. Note, when using GMail/IMAP, you should set this to
either 'trash or 'delete, since GMail already takes care of keeping
copies in the sent folder."
:type 'symbol
:safe 'symbolp
:group 'mu4e-compose)

5
mu4e/mu4e-utils.el
View File

@ -521,10 +521,7 @@ This is used by the completion function in mu4e-compose."
(and mu4e-compose-complete-ignore-address-regexp
(string-match mu4e-compose-complete-ignore-address-regexp mail))
(add-to-list 'lst
(if name (format "\"%s\" <%s>"
;; hack so we don't get ',' in e-mail addresses...
(replace-regexp-in-string "," "" name)
mail) mail))))))
(if name (format "\"%s\" <%s>" name mail) mail))))))
(setq mu4e~contacts-for-completion lst)
(mu4e-message "Contacts received: %d"
(length mu4e~contacts-for-completion))))

11
mu4e/mu4e-view.el
View File

@ -336,7 +336,8 @@ at POINT, or if nil, at (point)."
(let* ((parts (mu4e-message-field msg :parts))
(verdicts
(remove-if 'null
(mapcar (lambda (part) (mu4e-message-part-field part :signature)) parts)))
(mapcar (lambda (part) (mu4e-message-part-field part :signature))
parts)))
(val (when verdicts
(mapconcat
(lambda (v)
@ -382,7 +383,8 @@ at POINT, or if nil, at (point)."
(remove-if-not
(lambda (part)
(let ((mtype (mu4e-message-part-field part :mime-type))
(isattach (member 'attachment (mu4e-message-part-field part :type))))
(isattach (member 'attachment
(mu4e-message-part-field part :type))))
(or ;; remove if it's not an attach *or* if it's an
;; image/audio/application type (but not a signature)
isattach
@ -1087,11 +1089,12 @@ user that unmarking only works in the header list."
(defmacro mu4e~view-defun-mark-for (mark)
"Define a function mu4e-view-mark-for-MARK."
(let ((funcname (intern (concat "mu4e-view-mark-for-" (symbol-name mark))))
(docstring (concat "Mark the current message for " (symbol-name mark) ".")))
(docstring (format "Mark the current message for %s."
(symbol-name mark))))
`(defun ,funcname () ,docstring
(interactive)
(mu4e~view-in-headers-context
(mu4e-headers-mark-and-next (quote mark))))))
(mu4e-headers-mark-and-next (quote ,mark))))))
;; would be cool to do something like the following, but somehow, I can't get
;; the quoting right...