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

fix mu4e-header-fields custom type 

Also fix some option doc-strings.
This commit is contained in:
Jonas Bernoulli 2012-11-09 16:42:25 +01:00
parent ec106e38bf
commit 73916f1210
2 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
mu4e/mu4e-headers.el
View File

@ -51,12 +51,19 @@
(:flags . 6) (:flags . 6)
(:from . 22) (:from . 22)
(:subject . nil)) (:subject . nil))
"A list of header fields to show in the headers buffer, and their "A list of header fields to show in the headers buffer.
respective widths in characters. A width of `nil' means Each element has the form (HEADER . WIDTH), where HEADER is one
'unrestricted', and this is best reserved fo the rightmost (last) of the available headers (see `mu4e-header-info') and WIDTH is
field. For the complete list of available headers, see the respective width in characters. A width of `nil' means
`mu4e-header-info'." 'unrestricted', and this is best reserved for the
:type (list 'symbol) rightmost (last) field."
:type `(repeat (cons (choice ,@(mapcar (lambda (h)
(list 'const :tag
(plist-get (cdr h) :help)
(car h)))
mu4e-header-info))
(choice (integer :tag "width")
(const :tag "unrestricted width" nil))))
:group 'mu4e-headers) :group 'mu4e-headers)
(defcustom mu4e-headers-date-format "%x" (defcustom mu4e-headers-date-format "%x"

16
mu4e/mu4e-vars.el
View File

@ -500,8 +500,7 @@ headers)."
(:from-or-to . (:from-or-to .
( :name "From/To" ( :name "From/To"
:shortname "From/To" :shortname "From/To"
:help "Sender of the message if it's not me; otherwise :help "Sender of the message if it's not me; otherwise the recipient"
the recipient"
:sortable nil)) :sortable nil))
(:maildir . (:maildir .
( :name "Maildir" ( :name "Maildir"
@ -538,13 +537,14 @@ headers)."
:shortname "T" :shortname "T"
:help "Recipient of the message" :help "Recipient of the message"
:sortable t))) :sortable t)))
"An alist of all possible header fields and information about "An alist of all possible header fields and information about them.
them.; this is used in the UI (the column headers in the header This is used in the UI (the column headers in the header list,
list, and the fields the message view). Most fields should be and the fields the message view).
self-explanatory. A special one is `:from-or-to', which is equal to
`:from' unless `:from' matches `mu4e-user-mail-address-regexp', in
which case it will be equal to `:to'.")
Most fields should be self-explanatory. A special one is
`:from-or-to', which is equal to `:from' unless `:from' matches
`mu4e-user-mail-address-regexp', in which case it will be equal
to `:to'.")
(defvar mu4e-custom-header-info nil (defvar mu4e-custom-header-info nil
"A list like `mu4e-custom-header-info', but for "A list like `mu4e-custom-header-info', but for