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

* mu4e: fix warning

Browse Source
This commit is contained in:
djcb
2013-05-26 12:35:14 +03:00
parent ad6b3d8f0f
commit 52d89bd1f8
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
mu4e/mu4e-compose.el
View File

@ -191,6 +191,15 @@ If needed, set the Fcc header, and register the handler function."
(mu4e~proc-add file (or maildir "/")))))))) ;; update the database (mu4e~proc-add file (or maildir "/")))))))) ;; update the database
(defconst mu4e~compose-hidden-headers
`("^References:" "^Face:" "^X-Face:"
"^X-Draft-From:" "^User-agent:")
"Hidden headers when composing.")
(defconst mu4e~compose-address-fields-regexp
"^\\(To\\|B?Cc\\|Reply-To\\|From\\):")
(defun mu4e~compose-register-message-save-hooks () (defun mu4e~compose-register-message-save-hooks ()
"Just before saving, we remove the mail-header-separator; just "Just before saving, we remove the mail-header-separator; just
after saving we restore it; thus, the separator should never after saving we restore it; thus, the separator should never
@ -208,13 +217,6 @@ appear on disk."
;; update the file on disk -- ie., without the separator ;; update the file on disk -- ie., without the separator
(mu4e~proc-add (buffer-file-name) mu4e~draft-drafts-folder)) nil t)) (mu4e~proc-add (buffer-file-name) mu4e~draft-drafts-folder)) nil t))
(defconst mu4e~compose-hidden-headers
`("^References:" "^Face:" "^X-Face:"
"^X-Draft-From:" "^User-agent:")
"Hidden headers when composing.")
(defconst mu4e~compose-address-fields-regexp
"^\\(To\\|B?Cc\\|Reply-To\\|From\\):")
(defun mu4e~compose-find-completion-style (some-style) (defun mu4e~compose-find-completion-style (some-style)
"Find completion style SOME-STYLE in completion-styles-alist, or return nil." "Find completion style SOME-STYLE in completion-styles-alist, or return nil."