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

mu4e: don't use purecopy, it's useless

Browse Source 
Don't use `purecopy`, it's useless outside emacs itself, as pointed out
by cpitclaudel. Fixes issue #729.
This commit is contained in:
djcb
2015-12-15 07:02:24 +02:00
parent d8ecc98349
commit 2d443a953c
3 changed files with 22 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
mu4e/mu4e-draft.el
View File

@ -245,8 +245,7 @@ separator is never written to the message file. Also see
`mu4e-remove-mail-header-separator'."
;; we set this here explicitly, since (as it has happened) a wrong
;; value for this (such as "") breaks address completion and other things
(set (make-local-variable 'mail-header-separator)
(purecopy "--text follows this line--"))
(set (make-local-variable 'mail-header-separator) "--text follows this line--")
(put 'mail-header-separator 'permanent-local t)
(save-excursion
;; make sure there's not one already

40
mu4e/mu4e-headers.el
View File

@ -173,24 +173,24 @@ Field must be a symbol, one of: :date, :subject, :size, :prio,
;; marks for headers of the form; each is a cons-cell (basic . fancy)
;; each of which is basic ascii char and something fancy, respectively
(defvar mu4e-headers-draft-mark (purecopy '("D" . "⚒")) "Draft.")
(defvar mu4e-headers-flagged-mark (purecopy '("F" . "⚑")) "Flagged.")
(defvar mu4e-headers-new-mark (purecopy '("N" . "⭑")) "New.")
(defvar mu4e-headers-passed-mark (purecopy '("P" . "❯")) "Passed (fwd).")
(defvar mu4e-headers-replied-mark (purecopy '("R" . "❮")) "Replied.")
(defvar mu4e-headers-seen-mark (purecopy '("S" . "✔")) "Seen.")
(defvar mu4e-headers-trashed-mark (purecopy '("T" . "♻")) "Trashed.")
(defvar mu4e-headers-attach-mark (purecopy '("a" . "⚓")) "W/ attachments.")
(defvar mu4e-headers-encrypted-mark (purecopy '("x" . "⚴")) "Encrypted.")
(defvar mu4e-headers-signed-mark (purecopy '("s" . "☡")) "Signed.")
(defvar mu4e-headers-unread-mark (purecopy '("u" . "☐")) "Unread.")
(defvar mu4e-headers-draft-mark '("D" . "⚒") "Draft.")
(defvar mu4e-headers-flagged-mark '("F" . "⚑") "Flagged.")
(defvar mu4e-headers-new-mark '("N" . "⭑") "New.")
(defvar mu4e-headers-passed-mark '("P" . "❯") "Passed (fwd).")
(defvar mu4e-headers-replied-mark '("R" . "❮") "Replied.")
(defvar mu4e-headers-seen-mark '("S" . "✔") "Seen.")
(defvar mu4e-headers-trashed-mark '("T" . "♻") "Trashed.")
(defvar mu4e-headers-attach-mark '("a" . "⚓") "W/ attachments.")
(defvar mu4e-headers-encrypted-mark '("x" . "⚴") "Encrypted.")
(defvar mu4e-headers-signed-mark '("s" . "☡") "Signed.")
(defvar mu4e-headers-unread-mark '("u" . "☐") "Unread.")
;; thread prefix marks
(defvar mu4e-headers-has-child-prefix (purecopy '("+" . "◼")) "Parent.")
(defvar mu4e-headers-empty-parent-prefix (purecopy '("-" . "◽")) "Orphan.")
(defvar mu4e-headers-first-child-prefix (purecopy '("\\" . "┗▶")) "First child.")
(defvar mu4e-headers-duplicate-prefix (purecopy '("=" . "⚌")) "Duplicate.")
(defvar mu4e-headers-default-prefix (purecopy '("|" . "┃")) "Default.")
(defvar mu4e-headers-has-child-prefix '("+" . "◼") "Parent.")
(defvar mu4e-headers-empty-parent-prefix '("-" . "◽") "Orphan.")
(defvar mu4e-headers-first-child-prefix '("\\" . "┗▶") "First child.")
(defvar mu4e-headers-duplicate-prefix '("=" . "⚌") "Duplicate.")
(defvar mu4e-headers-default-prefix '("|" . "┃") "Default.")
(defvar mu4e-headers-actions
@ -236,10 +236,10 @@ If this is nil show results up to `mu4e-search-results-limit')")
;;;; internal variables/constants ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; docid cookies
(defconst mu4e~headers-docid-pre (purecopy "\376")
(defconst mu4e~headers-docid-pre "\376"
"Each header starts (invisibly) with the `mu4e~headers-docid-pre',
followed by the docid, followed by `mu4e~headers-docid-post'.")
(defconst mu4e~headers-docid-post (purecopy "\377")
(defconst mu4e~headers-docid-post "\377"
"Each header starts (invisibly) with the `mu4e~headers-docid-pre',
followed by the docid, followed by `mu4e~headers-docid-post'.")
@ -523,8 +523,8 @@ if provided, or at the end of the buffer otherwise."
;; now, append the header line
(mu4e~headers-add-header line docid point msg)))
(defconst mu4e~no-matches (purecopy "No matching messages found"))
(defconst mu4e~end-of-results (purecopy "End of search results"))
(defconst mu4e~no-matches "No matching messages found")
(defconst mu4e~end-of-results "End of search results")
(defun mu4e~headers-found-handler (count)
"Create a one line description of the number of headers found

2
mu4e/mu4e-proc.el
View File

@ -48,7 +48,7 @@ a length cookie:
a length cookie:
<`mu4e~cookie-pre'><length-in-hex><`mu4e~cookie-post'>.")
(defconst mu4e~cookie-matcher-rx
(purecopy (concat mu4e~cookie-pre "\\([[:xdigit:]]+\\)" mu4e~cookie-post))
(concat mu4e~cookie-pre "\\([[:xdigit:]]+\\)" mu4e~cookie-post)
"Regular expression matching the length cookie.
Match 1 will be the length (in hex).")