762 |
|
|
763 |
;;; Editing a Draft (:group 'mh-letter) |
;;; Editing a Draft (:group 'mh-letter) |
764 |
|
|
765 |
(defcustom mh-compose-insertion (if (locate-library "mml") 'gnus 'mhn) |
(defcustom mh-compose-insertion (if (locate-library "mml") 'mml 'mh) |
766 |
"Type of MIME message directives in messages. |
"Type of tags used when composing MIME messages. In addition to MH-style |
767 |
|
directives, MH-E also supports MML (MIME Meta Language) tags. (see Info node |
768 |
By default, this option is set to `Gnus' if it is supported. This option can |
`(emacs-mime)Composing'). This option can be used to choose between them. By |
769 |
also be set manually to `mhn' if mhn directives are preferred." |
default, this option is set to \"MML\" if it is supported since it provides a |
770 |
:type '(choice (const :tag "Gnus" gnus) |
lot more functionality. This option can also be set to \"MH\" if MH-style |
771 |
(const :tag "mhn" mhn)) |
directives are preferred." |
772 |
|
:type '(choice (const :tag "MML" mml) |
773 |
|
(const :tag "MH" mh)) |
774 |
:group 'mh-letter) |
:group 'mh-letter) |
775 |
|
|
776 |
(defcustom mh-compose-skipped-header-fields |
(defcustom mh-compose-skipped-header-fields |
781 |
:group 'mh-letter) |
:group 'mh-letter) |
782 |
|
|
783 |
(defcustom mh-compose-space-does-completion-flag nil |
(defcustom mh-compose-space-does-completion-flag nil |
784 |
"*Non-nil means that <SPC> does completion in message header." |
"*On means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header." |
785 |
:type 'boolean |
:type 'boolean |
786 |
:group 'mh-letter) |
:group 'mh-letter) |
787 |
|
|
788 |
(defcustom mh-delete-yanked-msg-window-flag nil |
(defcustom mh-delete-yanked-msg-window-flag nil |
789 |
"*Non-nil means delete any window displaying the message. |
"*On means delete any window displaying the message. |
790 |
If this option is on, yanking the current message into a draft letter with |
This deletes the window containing the original message after yanking it with |
791 |
\\<mh-letter-mode-map>\\[mh-yank-cur-msg] deletes any windows displaying the |
\\<mh-letter-mode-map>\\[mh-yank-cur-msg] to make more room on your screen for |
792 |
message." |
your reply." |
793 |
:type 'boolean |
:type 'boolean |
794 |
:group 'mh-letter) |
:group 'mh-letter) |
795 |
|
|
796 |
(defcustom mh-extract-from-attribution-verb "wrote:" |
(defcustom mh-extract-from-attribution-verb "wrote:" |
797 |
"*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]." |
"*Verb to use for attribution when a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. |
798 |
|
The attribution consists of the sender's name and email address followed by |
799 |
|
the content of this option. This option can be set to \"wrote:\", \"a |
800 |
|
écrit:\", and \"schrieb:\". You can also use the \"Custom String\" menu item |
801 |
|
to enter your own verb." |
802 |
:type '(choice (const "wrote:") |
:type '(choice (const "wrote:") |
803 |
(const "a écrit:") |
(const "a écrit:") |
804 |
(const "schrieb:") |
(const "schrieb:") |
806 |
:group 'mh-letter) |
:group 'mh-letter) |
807 |
|
|
808 |
(defcustom mh-ins-buf-prefix "> " |
(defcustom mh-ins-buf-prefix "> " |
809 |
"*String to put before each non-blank line of a yanked or inserted message. |
"*String to put before each line of a yanked or inserted message. |
810 |
Used when the message is inserted into an outgoing letter |
The prefix \"> \" is the default setting of this option. I suggest that you |
811 |
by \\<mh-letter-mode-map>\\[mh-insert-letter] or \\[mh-yank-cur-msg]." |
not modify this option since it is used by many mailers and news readers: |
812 |
|
messages are far easier to read if several included messages have all been |
813 |
|
indented by the same string." |
814 |
:type 'string |
:type 'string |
815 |
:group 'mh-letter) |
:group 'mh-letter) |
816 |
|
|
817 |
(defcustom mh-letter-complete-function 'ispell-complete-word |
(defcustom mh-letter-complete-function 'ispell-complete-word |
818 |
"*Function to call when completing outside of address or folder fields. |
"*Function to call when completing outside of address or folder fields. |
819 |
By default, this is set to `ispell-complete-word'." |
In the body of the message, \\<mh-letter-mode-map>\\[mh-letter-complete] runs |
820 |
|
this function, which is set to \"ispell-complete-word\" by default." |
821 |
:type '(choice function (const nil)) |
:type '(choice function (const nil)) |
822 |
:group 'mh-letter) |
:group 'mh-letter) |
823 |
|
|
824 |
(defcustom mh-letter-fill-column 72 |
(defcustom mh-letter-fill-column 72 |
825 |
"*Fill column to use in `mh-letter-mode'. |
"*Fill column to use in MH Letter mode. |
826 |
This is usually less than in other text modes because email messages get |
By default, this option is 72 to allow others to quote your message without |
827 |
quoted by some prefix (sometimes many times) when they are replied to, |
line wrapping." |
|
and it's best to avoid quoted lines that span more than 80 columns." |
|
828 |
:type 'integer |
:type 'integer |
829 |
:group 'mh-letter) |
:group 'mh-letter) |
830 |
|
|
831 |
(defcustom mh-mml-method-default (if mh-gnus-pgp-support-flag "pgpmime" "none") |
(defcustom mh-mml-method-default (if mh-pgp-support-flag "pgpmime" "none") |
832 |
"Default method to use in security directives." |
"Default method to use in security tags. |
833 |
|
This option is used to select between a variety of mail security mechanisms. |
834 |
|
The default is \"PGP (MIME)\" if it is supported\; otherwise, the default is |
835 |
|
\"None\". Other mechanisms include vanilla \"PGP\" and \"S/MIME\". |
836 |
|
|
837 |
|
The `pgg' customization group may have some settings which may interest you |
838 |
|
\(see Info node `(pgg)'). |
839 |
|
|
840 |
|
In particular, I set the option `pgg-encrypt-for-me' to t so that all messages |
841 |
|
I encrypt are encrypted with my public key as well. If you keep a copy of all |
842 |
|
of your outgoing mail with a \"Fcc:\" header field, this setting is vital so |
843 |
|
that you can read the mail you write!" |
844 |
:type '(choice (const :tag "PGP (MIME)" "pgpmime") |
:type '(choice (const :tag "PGP (MIME)" "pgpmime") |
845 |
(const :tag "PGP" "pgp") |
(const :tag "PGP" "pgp") |
846 |
(const :tag "S/MIME" "smime") |
(const :tag "S/MIME" "smime") |
850 |
(defcustom mh-signature-file-name "~/.signature" |
(defcustom mh-signature-file-name "~/.signature" |
851 |
"*Source of user's signature. |
"*Source of user's signature. |
852 |
|
|
853 |
By default, the text of your signature is taken from the file `~/.signature'. |
By default, the text of your signature is taken from the file \"~/.signature\". |
854 |
You can read from other files by changing this option. This file may contain a |
You can read from other files by changing this option. This file may contain a |
855 |
vCard in which case an attachment is added with the vCard. |
vCard in which case an attachment is added with the vCard. |
856 |
|
|
857 |
This option may also be a symbol, in which case that function is called. You |
This option may also be a symbol, in which case that function is called. You |
858 |
may not want a signature separator to be added for you; instead you may want |
may not want a signature separator to be added for you; instead you may want |
859 |
to insert one yourself. Variables that you may find useful to do this include |
to insert one yourself. Options that you may find useful to do this include |
860 |
`mh-signature-separator' (when inserting a signature separator) and |
`mh-signature-separator' (when inserting a signature separator) and |
861 |
`mh-signature-separator-regexp' (for finding said separator). The function |
`mh-signature-separator-regexp' (for finding said separator). The function |
862 |
`mh-signature-separator-p', which reports t if the buffer contains a |
`mh-signature-separator-p', which reports t if the buffer contains a |
869 |
:group 'mh-letter) |
:group 'mh-letter) |
870 |
|
|
871 |
(defcustom mh-signature-separator-flag t |
(defcustom mh-signature-separator-flag t |
872 |
"*Non-nil means a signature separator should be inserted. |
"*On means a signature separator should be inserted. |
873 |
It is not recommended that you change this option since various mail user |
It is not recommended that you change this option since various mail user |
874 |
agents, including MH-E, use the separator to present the signature |
agents, including MH-E, use the separator to present the signature |
875 |
differently, and to suppress the signature when replying or yanking a letter |
differently, and to suppress the signature when replying or yanking a letter |
880 |
(defcustom mh-x-face-file "~/.face" |
(defcustom mh-x-face-file "~/.face" |
881 |
"*File containing face header field to insert in outgoing mail. |
"*File containing face header field to insert in outgoing mail. |
882 |
|
|
883 |
If the file starts with either of the strings `X-Face:', `Face:' or |
If the file starts with either of the strings \"X-Face:\", \"Face:\" or |
884 |
`X-Image-URL:' then the contents are added to the message header verbatim. |
\"X-Image-URL:\" then the contents are added to the message header verbatim. |
885 |
Otherwise it is assumed that the file contains the value of the `X-Face:' |
Otherwise it is assumed that the file contains the value of the \"X-Face:\" |
886 |
header field. |
header field. |
887 |
|
|
888 |
The `X-Face:' header field, which is a low-resolution, black and white image, |
The \"X-Face:\" header field, which is a low-resolution, black and white |
889 |
can be generated using the `compface' command, which can be obtained from |
image, can be generated using the \"compface\" |
890 |
ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.Z. The \"Online |
(ftp://ftp.cs.indiana.edu/pub/faces/compface/compface.tar.Z) command. The |
891 |
X-Face Convertor\" at http://www.dairiki.org/xface/ is a useful resource for |
\"Online X-Face Converter\" (http://www.dairiki.org/xface/) is a useful |
892 |
quick conversion of images into `X-Face:' header fields. |
resource for quick conversion of images into \"X-Face:\" header fields. |
893 |
|
|
894 |
Use the `make-face' script (http://quimby.gnus.org/circus/face/make-face) to |
Use the \"make-face\" (http://quimby.gnus.org/circus/face/make-face) script to |
895 |
convert a JPEG image to the higher resolution, color, `Face:' header field. |
convert a JPEG image to the higher resolution, color, \"Face:\" header field. |
896 |
|
|
897 |
The URL of any image can be used for the `X-Image-URL:' field and no |
The URL of any image can be used for the \"X-Image-URL:\" field and no |
898 |
processing of the image is required. |
processing of the image is required. |
899 |
|
|
900 |
To prevent the setting of any of these header fields, either set |
To prevent the setting of any of these header fields, either set |
903 |
:type 'file |
:type 'file |
904 |
:group 'mh-letter) |
:group 'mh-letter) |
905 |
|
|
906 |
(defcustom mh-yank-from-start-of-msg 'attribution |
(defcustom mh-yank-behavior 'attribution |
907 |
"*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. |
"*Controls which part of a message is yanked by \\<mh-letter-mode-map>\\[mh-yank-cur-msg]. |
908 |
If t, include the entire message, with full headers. This is historically |
|
909 |
here for use with supercite, but is now deprecated in favor of the setting |
To include the entire message, including the entire header, use \"Body and |
910 |
`supercite' below. |
Header\". Use \"Body\" to yank just the body without the header. To yank only |
911 |
|
the portion of the message following the point, set this option to \"Below |
912 |
If the symbol `body', then yank the message minus the header. |
Point\". |
913 |
|
|
914 |
If the symbol `supercite', include the entire message, with full headers. |
Choose \"Invoke supercite\" to pass the entire message and header through |
915 |
This also causes the invocation of `sc-cite-original' without the setting |
supercite. |
916 |
of `mail-citation-hook', now deprecated practice. |
|
917 |
|
If the \"Body With Attribution\" setting is used, then the message minus the |
918 |
If the symbol `autosupercite', do as for `supercite' automatically when |
header is yanked and a simple attribution line is added at the top using the |
919 |
show buffer matches the message being replied-to. When this option is used, |
value of the `mh-extract-from-attribution-verb' option. This is the default. |
920 |
the -noformat switch is passed to the repl program to override a -filter or |
|
921 |
-format switch. |
If the \"Invoke supercite\" or \"Body With Attribution\" settings are used, |
922 |
|
the \"-noformat\" argument is passed to the \"repl\" program to override a |
923 |
If the symbol `attribution', then yank the message minus the header and add |
\"-filter\" or \"-format\" argument. These settings also have |
924 |
a simple attribution line at the top. |
\"Automatically\" variants that perform the action automatically when you |
925 |
|
reply so that you don't need to use \\[mh-yank-cur-msg] at all. Note that this |
926 |
If the symbol `autoattrib', do as for `attribution' automatically when show |
automatic action is only performed if the show buffer matches the message |
927 |
buffer matches the message being replied-to. You can make sure this is |
being replied to. People who use the automatic variants tend to turn on the |
928 |
always the case by setting `mh-reply-show-message-flag' to t (which is the |
`mh-delete-yanked-msg-window-flag' option as well so that the show window is |
929 |
default) and optionally `mh-delete-yanked-msg-window-flag' to t as well such |
never displayed. |
930 |
that the show window is never displayed. When the `autoattrib' option is |
|
931 |
used, the -noformat switch is passed to the repl program to override a |
If the show buffer has a region, the `mh-yank-behavior' option is ignored |
932 |
-filter or -format switch. |
unless its value is one of Attribution variants in which case the attribution |
933 |
|
is added to the yanked region." |
|
If nil, yank only the portion of the message following the point. |
|
|
|
|
|
If the show buffer has a region, this variable is ignored unless its value is |
|
|
one of `attribution' or `autoattrib' in which case the attribution is added |
|
|
to the yanked region." |
|
934 |
:type '(choice (const :tag "Body and Header" t) |
:type '(choice (const :tag "Body and Header" t) |
935 |
(const :tag "Body" body) |
(const :tag "Body" body) |
936 |
(const :tag "Below Point" nil) |
(const :tag "Below Point" nil) |
1997 |
|
|
1998 |
(defcustom mail-citation-hook nil |
(defcustom mail-citation-hook nil |
1999 |
"*Hook for modifying a citation just inserted in the mail buffer. |
"*Hook for modifying a citation just inserted in the mail buffer. |
2000 |
Each hook function can find the citation between point and mark. |
You can gain full control over the appearance of the included text by setting |
2001 |
And each hook function should leave point and mark around the citation |
this hook to a function that modifies it. This hook is ignored if the option |
2002 |
text as modified. |
`mh-yank-behavior' is set to one of the supercite flavors. Otherwise, this |
2003 |
|
option controls how much of the message is passed to the hook. The function |
2004 |
If this hook is entirely empty (nil), the text of the message is inserted |
can find the citation between point and mark and it should leave point and |
2005 |
with `mh-ins-buf-prefix' prefixed to each line. |
mark around the modified citation text for the next hook function. The |
2006 |
|
standard prefix `mh-ins-buf-prefix' is not added if this hook is set. |
2007 |
See also the variable `mh-yank-from-start-of-msg', which controls how |
|
2008 |
much of the message passed to the hook. |
For example, if you use the hook function trivial-cite |
2009 |
|
\(http://shasta.cs.uiuc.edu/~lrclause/tc.html) (which is NOT part of Emacs), |
2010 |
This hook was historically provided to set up supercite. You may now leave |
set `mh-yank-behavior' to \"Body and Header\"." |
|
this nil and set up supercite by setting the variable |
|
|
`mh-yank-from-start-of-msg' to 'supercite or, for more automatic insertion, |
|
|
to 'autosupercite. |
|
|
|
|
|
The hook 'trivial-cite is NOT part of Emacs. It is provided from tc.el, |
|
|
available here: |
|
|
http://shasta.cs.uiuc.edu/~lrclause/tc.html |
|
|
If you use it, customize `mh-yank-from-start-of-msg' to |
|
|
\"Entire message with headers\"." |
|
2011 |
:type 'hook |
:type 'hook |
2012 |
:options '(trivial-cite) |
:options '(trivial-cite) |
2013 |
:group 'mh-hooks |
:group 'mh-hooks |
2027 |
:group 'mh-show) |
:group 'mh-show) |
2028 |
|
|
2029 |
(defcustom mh-before-send-letter-hook nil |
(defcustom mh-before-send-letter-hook nil |
2030 |
"Invoked at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command." |
"Invoked at the beginning of the \\<mh-letter-mode-map>\\[mh-send-letter] command. |
2031 |
|
For example, if you want to check your spelling in your message before |
2032 |
|
sending, add the `ispell-message' function." |
2033 |
:type 'hook |
:type 'hook |
2034 |
|
:options '(ispell-message) |
2035 |
:group 'mh-hooks |
:group 'mh-hooks |
2036 |
:group 'mh-letter) |
:group 'mh-letter) |
2037 |
|
|
2041 |
:group 'mh-hooks |
:group 'mh-hooks |
2042 |
:group 'mh-show) |
:group 'mh-show) |
2043 |
|
|
2044 |
(defcustom mh-edit-mhn-hook nil |
(defcustom mh-mh-to-mime-hook nil |
2045 |
"Invoked on the formatted letter by \\<mh-letter-mode-map>\\[mh-edit-mhn]." |
"Invoked on the formatted letter by \\<mh-letter-mode-map>\\[mh-mh-to-mime]." |
2046 |
:type 'hook |
:type 'hook |
2047 |
:group 'mh-hooks |
:group 'mh-hooks |
2048 |
:group 'mh-letter) |
:group 'mh-letter) |