/[emacs]/emacs/lisp/mh-e/mh-customize.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-customize.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by wohler, Mon Oct 17 22:02:37 2005 UTC revision 1.22 by wohler, Sun Oct 23 21:26:17 2005 UTC
# Line 762  installed and you want to use BogoFilter Line 762  installed and you want to use BogoFilter
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
# Line 779  also be set manually to `mhn' if mhn dir Line 781  also be set manually to `mhn' if mhn dir
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:")
# Line 800  message." Line 806  message."
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")
# Line 831  and it's best to avoid quoted lines that Line 850  and it's best to avoid quoted lines that
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
# Line 850  option." Line 869  option."
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
# Line 861  into a draft." Line 880  into a draft."
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
# Line 884  doesn't exist." Line 903  doesn't exist."
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)
# Line 1983  This button runs `mh-previous-undeleted- Line 1997  This button runs `mh-previous-undeleted-
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
# Line 2022  See also `mh-quit-hook'." Line 2027  See also `mh-quit-hook'."
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    
# Line 2033  See also `mh-quit-hook'." Line 2041  See also `mh-quit-hook'."
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)

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26