Lines Matching +defs:mail +defs:signature +defs:file
1 ;;; mh-e.el --- GNU Emacs interface to the MH mail system
10 ;; Keywords: mail
12 ;; This file is part of GNU Emacs.
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
31 ;; MH-E is an Emacs interface to the MH mail system.
38 ;; MH (Message Handler) is a powerful mail reader. See
46 ;; M-x mh-rmail to read mail. Type C-h m there for a list of commands.
48 ;; M-x mh-smail to send mail. From within the mail reader, "s" works, too.
68 ;; https://sourceforge.net/mail/?group_id=13357
134 ;; Try to keep variables local to a single file. Provide accessors if
175 This directory contains, among other things, the components file.")
201 User's mail folder directory.")
315 (defvar mh-mail-header-separator "--------"
319 should use `mail-header-separator' instead.
320 `mail-header-separator' is initialized to
321 `mh-mail-header-separator' in `mh-letter-mode'; in other
349 (defvar mh-index-data-file ".mhe_index"
350 "MH-E specific file where index seach info is stored.")
360 (defvar mh-signature-separator "-- \n"
361 "Text of a signature separator.
363 A signature separator is used to separate the body of a message
364 from the signature. This can be used by user agents such as MH-E
365 to render the signature differently or to suppress the inclusion
366 of the signature in a reply. Use `mh-signature-separator-regexp'
369 (defvar mh-signature-separator-regexp "^-- $"
370 "This regular expression matches the signature separator.
371 See `mh-signature-separator'.")
408 "Display version information about MH-E and the MH mail handling system."
435 (file-error))
519 (apply 'call-process (expand-file-name command mh-progs) nil t nil args)
544 command (apply #'call-process (expand-file-name command mh-progs)
561 (expand-file-name command mh-progs)
602 (expand-file-name command mh-progs) nil t nil
616 (expand-file-name command mh-progs) nil t display
648 (apply 'mh-exec-cmd-output (expand-file-name command mh-lib-progs) nil args))
742 (setq dir (file-chase-links (directory-file-name dir)))
745 (when (and dir (file-directory-p dir) (file-readable-p dir))
773 (let ((mhparam (expand-file-name "mhparam" dir)))
774 (when (mh-file-command-p mhparam)
797 (let ((mhparam (expand-file-name "mhparam" dir)))
798 (when (mh-file-command-p mhparam)
811 (flists ,(file-exists-p
812 (expand-file-name "flists" dir)))))))))
818 (let ((mhparam (expand-file-name "mhparam" dir)))
819 (when (mh-file-command-p mhparam)
831 (flists ,(file-exists-p
832 (expand-file-name "flists" dir)))))))))
834 (defun mh-file-command-p (file)
835 "Return t if file FILE is the name of a executable regular file."
836 (and (file-regular-p file) (file-executable-p file)))
1026 "Emacs interface to the MH mail system.
1030 :group 'mail
1041 "Organizing your mail with folders."
1062 "Incorporating your mail."
1069 "Dealing with junk mail."
1103 (defgroup-mh mh-sending-mail nil
1104 "Sending mail."
1118 "Reading your mail."
1203 (defcustom-mh mh-alias-insert-file nil
1207 Component\". This option can also hold the name of a file or a
1208 list a file names. If this option is set to a list of file names,
1209 or the \"Aliasfile:\" profile component contains more than one file
1212 (file :tag "Alias File")
1213 (repeat :tag "List of Alias Files" file))
1221 your alias file in other ways, then adding aliases to the \"Top\"
1222 or \"Bottom\" of your alias file might be more appropriate."
1236 present in the password file. Otherwise, the alias will have the
1244 password file. For example, use \"ypcat passwd\" to obtain the
1245 NIS password file."
1251 "*String prefixed to the real names of users from the password file.
1254 For example, consider the following password file entry:
1273 "*Non-nil means the gecos field in the password file uses a comma separator.
1278 gecos field in your password file is not separated by commas and
1392 mail from various people for whom you have an alias, but file
1403 The prefix is used to prevent clutter in your mail directory.
1438 `mh-extract-from-attribution-verb'. Set your signature with the
1440 `mh-signature-file-name', a file, or a function. Specify a different
1445 \\[mh-insert-identity]. To clear the fields and signature added by the
1473 ":signature")
1475 (const :tag "mh-signature-file-name"
1477 (file)
1505 the recipient's mail user agent supports this header field (as nmh
1572 (":signature" . mh-identity-handler-signature)
1586 \":signature\", or \":pgg-default-user-id\" are used for the
1595 fields (for example, \":signature\"), and the ACTION 'remove or
1605 "*Program to incorporate new mail into a folder.
1608 messages. Unless it is an absolute pathname, the file is assumed
1609 to be in the `mh-progs' directory. You may also link a file to
1627 retrieve mail from arbitrary spool files other than your system
1628 mailbox, file it in folders other than your \"+inbox\", and assign
1629 key bindings to incorporate this mail.
1632 you use \"procmail\" to filter this mail into \"~/mail/mh-e\" with
1635 MAILDIR=$HOME/mail
1637 * ^From mh-e-devel-admin@stop.mail-abuse.org
1640 In order to incorporate \"~/mail/mh-e\" into \"+mh-e\" with an
1642 on the \"INS\" button. Enter a \"Spool File\" of \"~/mail/mh-e\", a
1645 You can use \"xbuffy\" to automate the incorporation of this mail
1648 box ~/mail/mh-e
1657 :type '(repeat (list (file :tag "Spool File")
1715 "Disposition of junk mail."
1802 `mail-citation-hook'."
1829 This option is used to select between a variety of mail security
1839 If you keep a copy of all of your outgoing mail with a \"Fcc:\"
1840 header field, this setting is vital so that you can read the mail
1849 (defcustom-mh mh-signature-file-name "~/.signature"
1850 "*Source of user's signature.
1852 By default, the text of your signature is taken from the file
1853 \"~/.signature\". You can read from other sources by changing this
1854 option. This file may contain a vCard in which case an attachment is
1858 called. You may not want a signature separator to be added for you;
1860 useful to do this include `mh-signature-separator' (when inserting a
1861 signature separator) and `mh-signature-separator-regexp' (for finding
1862 said separator). The function `mh-signature-separator-p', which
1865 The signature is inserted into your message with the command
1866 \\<mh-letter-mode-map>\\[mh-insert-signature] or with the option
1868 :type 'file
1872 (defcustom-mh mh-signature-separator-flag t
1873 "*Non-nil means a signature separator should be inserted.
1876 mail user agents, including MH-E, use the separator to present
1877 the signature differently, and to suppress the signature when
1883 (defcustom-mh mh-x-face-file "~/.face"
1884 "*File containing face header field to insert in outgoing mail.
1886 If the file starts with either of the strings \"X-Face:\", \"Face:\"
1888 verbatim. Otherwise it is assumed that the file contains the value of
1906 `mh-x-face-file' to nil, or simply ensure that the file defined by
1908 :type 'file
1944 `mail-citation-hook' is ignored and `mh-ins-buf-prefix' is not
1986 `mh-scan-format-file' is set to \"Use MH-E scan Format\".
1989 call `mh-set-cmd-note' with the width specified by your format file
1990 \(see `mh-scan-format-file'). For example, the default width is 4, so
1997 (defun mh-scan-format-file-check (symbol value)
1999 Throw an error if user tries to set `mh-scan-format-file' to
2008 (defcustom-mh mh-scan-format-file t
2009 "Specifies the format file to pass to the scan program.
2019 you have a format file that you want MH-E to use but not MH, you can
2021 of your format file.
2031 (file :tag "Specify a scan Format File"))
2033 :set 'mh-scan-format-file-check
2039 `mh-adaptive-cmd-note-flag' when `mh-scan-format-file' isn't t.
2042 (not (eq mh-scan-format-file t)))
2043 (error "%s %s" "Can't turn on unless `mh-scan-format-file'"
2083 ;;; Sending Mail (:group 'mh-sending-mail)
2098 :group 'mh-sending-mail
2110 :group 'mh-sending-mail
2116 :group 'mh-sending-mail
2126 :group 'mh-sending-mail
2136 :group 'mh-sending-mail
2148 :group 'mh-sending-mail
2164 :group 'mh-sending-mail
2175 :group 'mh-sending-mail
2265 Sometimes, a mail program will produce multiple alternatives of
2284 and paste the code into a file; you can simply save the attachment.
2331 of messages, each specifying a unique URL to a very large file.
2424 "Original-Lines:" ; mail to news
2425 "Original-NNTP-" ; mail to news
2426 "Original-Newsgroups:" ; mail to news
2427 "Original-Path:" ; mail to news
2428 "Original-Received:" ; mail to news
2429 "Original-To:" ; mail to news
2430 "Original-X-" ; mail to news
2481 "X-Evolution:" ; Evolution mail client
2691 \\[mh-ps-print-msg-file]."
2699 Some older mail programs do not insert this needed plumbing to
2715 Some older mail programs do not insert this needed plumbing to
2728 (defcustom-mh mh-mhl-format-file nil
2729 "*Specifies the format file to pass to the \"mhl\" program.
2739 If you have a format file that you want MH-E to use, you can set this
2741 format file. Your format file should specify a non-zero value for
2745 file."
2748 (file :tag "Specify an mhl Format File"))
2779 \\[mh-ps-print-msg-file]."
2826 image doesn't need to be transmitted with every single mail.
2996 kept statistics on his mail usage."
3024 :group 'mh-sending-mail
3028 "Hook run by \\<mh-folder-mode-map>\\[mh-inc-folder] after incorporating mail into a folder."
3034 (defcustom-mh mh-insert-signature-hook nil
3035 "Hook run by \\<mh-letter-mode-map>\\[mh-insert-signature] after signature has been inserted.
3037 Hook functions may access the actual name of the file or the
3038 function used to insert the signature with
3039 `mh-signature-file-name'."
3069 \"components\" file and need to tell MH-E where the cursor should
3073 :group 'mh-sending-mail
3281 (mh-show-signature ((t (:italic t))))
3492 "Bad PGG signature face."
3498 "Good PGG signature face."
3504 "Unknown or untrusted PGG signature face."
3509 (defface-mh mh-show-signature (mh-face-data 'mh-show-signature)