428 |
|
|
429 |
(defcustom feedmail-nuke-body-in-fcc nil |
(defcustom feedmail-nuke-body-in-fcc nil |
430 |
"*If non-nil remove body of message in copies saved via Fcc:. |
"*If non-nil remove body of message in copies saved via Fcc:. |
431 |
If an positive integer value, leave (up to) that many lines of the |
If a positive integer value, leave (up to) that many lines of the |
432 |
beginning of the body intact. The result is that the Fcc: copy will |
beginning of the body intact. The result is that the Fcc: copy will |
433 |
consist only of the message headers, serving as a sort of an outgoing |
consist only of the message headers, serving as a sort of an outgoing |
434 |
message log." |
message log." |
688 |
the standards define the ordering of header fields to be immaterial and it's |
the standards define the ordering of header fields to be immaterial and it's |
689 |
fairly likely that some MTA along the way will have its own idea of what the |
fairly likely that some MTA along the way will have its own idea of what the |
690 |
order should be, regardless of what you specify." |
order should be, regardless of what you specify." |
691 |
:group 'feedmail-header |
:group 'feedmail-headers |
692 |
:type 'boolean |
:type 'boolean |
693 |
) |
) |
694 |
|
|
706 |
variable feedmail-fiddle-plex-blurb. In contrast to some other fiddle-plex |
variable feedmail-fiddle-plex-blurb. In contrast to some other fiddle-plex |
707 |
manipulation functions, in this context, it makes no sense to have an element |
manipulation functions, in this context, it makes no sense to have an element |
708 |
which is nil, t, or a simple string." |
which is nil, t, or a simple string." |
709 |
:group 'feedmail-header |
:group 'feedmail-headers |
710 |
:type '(repeat (choice function) |
:type '(repeat (choice function) |
711 |
sexp) ; too complex to be described accurately |
sexp) ; too complex to be described accurately |
712 |
) |
) |
845 |
(if (memq system-type '(axp-vms vax-vms)) |
(if (memq system-type '(axp-vms vax-vms)) |
846 |
(expand-file-name (concat (getenv "HOME") "[.MAIL.DRAFT]")) |
(expand-file-name (concat (getenv "HOME") "[.MAIL.DRAFT]")) |
847 |
(concat (getenv "HOME") "/mail/draft")) |
(concat (getenv "HOME") "/mail/draft")) |
848 |
"*Name of an directory where draft messages will be queued. |
"*Name of a directory where draft messages will be queued. |
849 |
Directory will be created if necessary. Should be a string that |
Directory will be created if necessary. Should be a string that |
850 |
doesn't end with a slash. Default, except on VMS, is \"$HOME/mail/draft\"." |
doesn't end with a slash. Default, except on VMS, is \"$HOME/mail/draft\"." |
851 |
:group 'feedmail-queue |
:group 'feedmail-queue |