Lines Matching +defs:gnus +defs:summary +defs:save +defs:body +defs:in +defs:file
12 ;; This file is part of GNU Emacs.
19 ;; GNU Emacs is distributed in the hope that it will be useful,
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
72 ;; Include the output of M-x mh-version in the bug report unless
93 ;; use any definitions in files that require mh-e from mh-loaddefs,
106 (mh-do-in-xemacs
134 ;; Try to keep variables local to a single file. Provide accessors if
153 The list `exec-path' is searched in addition to this list.
162 (defvar mh-variant-in-use nil
163 "The MH variant currently in use; a string with variant and version number.
175 This directory contains, among other things, the components file.")
203 ;; Maps declared here so that they can be used in docstrings.
238 "Marker for arrow display in fringe.")
266 "Message range displayed in buffer.")
275 "List of folder names in `mh-seq-list'.
293 "If non-nil, show the message in a separate window.")
316 "*Line used by MH to separate headers from text in messages being composed.
318 This variable should not be used directly in programs. Programs
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.")
363 A signature separator is used to separate the body of a message
366 of the signature in a reply. Use `mh-signature-separator-regexp'
393 (eval-when-compile (require 'gnus))
395 (defmacro mh-macro-expansion-time-gnus-version ()
399 gnus-version)
401 (defun mh-run-time-gnus-version ()
403 (require 'gnus)
404 gnus-version)
417 (gnus-compiled-version (if compiled-mhe
418 (mh-macro-expansion-time-gnus-version)
421 " Gnus (compile-time):\t" gnus-compiled-version "\n"
422 " Gnus (run-time):\t" (mh-run-time-gnus-version) "\n\n"))
426 (if mh-variant-in-use
427 (insert mh-variant-in-use "\n"
435 (file-error))
514 (save-excursion
519 (apply 'call-process (expand-file-name command mh-progs) nil t nil args)
521 (save-excursion
524 (loop for arg in args do (insert " " arg))
526 (save-window-excursion
534 (save-excursion
539 ;; strings. This can happen in XEmacs if leading or trailing spaces
544 command (apply #'call-process (expand-file-name command mh-progs)
548 "Execute MH command COMMAND in the background.
555 (save-excursion
561 (expand-file-name command mh-progs)
567 "In ennvironment ENV, execute mh-command COMMAND in the background.
584 Any output from the process is displayed in an asynchronous
596 RAISE-ERROR is non-nil, in which case an error is signaled if
602 (expand-file-name command mh-progs) nil t nil
616 (expand-file-name command mh-progs) nil t display
623 ;; The bug wasn't seen in emacs21 but still occurred in XEmacs21.4.
637 (error "No mark set in this buffer"))
648 (apply 'mh-exec-cmd-output (expand-file-name command mh-lib-progs) nil args))
658 (save-excursion
683 (loop for keyword in ,args
694 keyword, introduced in Emacs 22."
704 keyword, introduced in Emacs 22."
714 keyword, introduced in Emacs 22."
733 This function looks for MH in `mh-sys-path', `mh-path' and
741 (loop for dir in (append mh-path mh-sys-path exec-path) do
742 (setq dir (file-chase-links (directory-file-name dir)))
744 (loop for dir in (nreverse list-unique) do
745 (when (and dir (file-directory-p dir) (file-readable-p dir))
752 "Return MH variant found in DIR, or nil if none present."
753 (save-excursion
762 "Return info for MH variant in DIR assuming a temporary buffer is setup."
764 ;; Its version number is included in the output of "-help" as:
773 (let ((mhparam (expand-file-name "mhparam" dir)))
774 (when (mh-file-command-p mhparam)
793 "Return info for GNU mailutils variant in DIR.
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)))))))))
815 "Return info for nmh variant in DIR assuming a temporary buffer is setup."
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)))
840 If VARIANT is a string, use that key in the alist returned by the
858 mh-variant-in-use variant))))
860 (loop for variant-list in (mh-variants)
874 mh-variant-in-use version)
880 (let ((variant-in-use
881 (cadr (assoc 'variant (assoc mh-variant-in-use (mh-variants))))))
882 (not (null (member variant-in-use variants)))))
886 (save-excursion
893 "Find and return the value of COMPONENT in the current buffer.
894 Returns nil if the component is not in the buffer."
922 (message "%s installed as MH variant" mh-variant-in-use))
924 (message "%s installed as MH variant" mh-variant-in-use))
926 (message "%s installed as MH variant" mh-variant-in-use))
943 mailutils that it finds in the directories listed in
946 customize `mh-path' and add the directory in which the command
948 and mailutils installed (for example) and `mh-variant-in-use' was
953 `mh-lib-progs', `mh-flists-present-flag', and `mh-variant-in-use'
955 some of these variables in \"~/.emacs\"; now it is no longer
961 (set-default symbol value) ;Done in mh-variant-set-variant!
971 ;; All of the defgroups, defcustoms, and deffaces in MH-E are found
987 ;; sub-section for each group in the MH-E Customization Groups
988 ;; section, in the same order, separated by page breaks. Within
993 ;; All hooks must be placed in the mh-hook group; in addition, add
994 ;; the group associated with the manual node in which the hook is
1000 ;; All faces must be placed in the mh-faces group; in addition, add
1001 ;; the group associated with the manual node in which the face is
1008 windows in the frame are removed."
1153 "Faces used in MH-E."
1170 "*Non-nil means don't consider case significant in MH alias completion.
1172 As MH ignores case in the aliases, so too does MH-E. However, you
1181 "*Non-nil means to expand aliases entered in the minibuffer.
1183 In other words, aliases entered in the minibuffer will be
1184 expanded to the full address in the message draft. By default,
1195 address associated with an address in the minibuffer briefly, but
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))
1218 "Specifies where new aliases are entered in alias files.
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.
1275 In the example in `mh-alias-local-users-prefix', commas are used
1277 This is a fairly common usage. However, in the rare case that the
1278 gecos field in your password file is not separated by commas and
1320 in it exceed this value, then confirmation is needed when it is
1328 (defcustom-mh mh-recenter-summary-flag nil
1329 "*Non-nil means to recenter the summary window.
1331 If this option is turned on, recenter the summary window when the
1348 specified in the MH profile. This option may be used to provide
1372 The folder name associated with the first address found in this
1374 functions. Each element in this list contains a \"Check Recipient\"
1392 mail from various people for whom you have an alias, but file
1393 them all in the same project folder.
1403 The prefix is used to prevent clutter in your mail directory.
1425 label \"Add at least one item below\". Then choose one of the items in
1431 with a period, then you must quote your name as in '\"First I. Last\"
1434 arbitrary header field and value in the \"Other Field\" menu item.
1436 field's label with \"X-\", as in \"X-Fruit-of-the-Day:\". The value of
1440 `mh-signature-file-name', a file, or a function. Specify a different
1444 \"Identity\" in the MH-Letter buffer. You can also use
1448 The \"Identity\" menu contains two other items to save you from having
1453 can also customize the `mh-identity-default' option in the usual
1475 (const :tag "mh-signature-file-name"
1477 (file)
1496 one of the items in the \"Value Menu\".
1499 configured in `mh-identity-list'. All of the information for that
1501 item is used to select a folder that is used in the \"Fcc:\" header.
1502 When you send the message, MH will put a copy of your message in this
1523 You should avoid using the same header field in `mh-auto-fields-list'
1574 "Handler functions for fields in `mh-identity-list'.
1577 and attributions in `mh-identity-list' are added. To customize
1584 The \"Field\" field can be any field that you've used in your
1607 This program generates a one-line summary for each of the new
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
1628 mailbox, file it in folders other than your \"+inbox\", and assign
1633 the following recipe in \".procmailrc\":
1655 In XEmacs, the command \"gnuclient\" is used in a similar
1657 :type '(repeat (list (file :tag "Spool File")
1688 `mh-junk-choice' in addition to `mh-junk-program'."
1692 (loop for element in mh-junk-function-alist
1697 "If on, spam programs are run in background.
1699 By default, the programs are run in the foreground, but this can
1704 Note that this option is used as the \"display\" argument in the
1726 bogofilter, or SpamProbe in that order. If, for example, you have
1756 "List of header fields to skip over when navigating in draft."
1762 "*Non-nil means \\<mh-letter-mode-map>\\[mh-letter-complete-or-space] does completion in message header."
1810 In the body of the message,
1818 "*Fill column to use in MH Letter mode.
1827 "Default method to use in security tags.
1849 (defcustom-mh mh-signature-file-name "~/.signature"
1852 By default, the text of your signature is taken from the file
1854 option. This file may contain a vCard in which case an attachment is
1857 This option may also be a symbol, in which case that function is
1868 :type 'file
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
1900 `http://quimby.gnus.org/circus/face/make-face').
1906 `mh-x-face-file' to nil, or simply ensure that the file defined by
1908 :type 'file
1916 \"Body and Header\". Use \"Body\" to yank just the body without
1940 ignored unless its value is one of Attribution variants in which
1947 (const :tag "Body" body)
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.
2014 nmh (or GNU mailutils) is in use. This setting also enables you to
2019 you have a format file that you want MH-E to use but not MH, you can
2021 of your format file.
2027 `mh-set-cmd-note' if your notations are not in column 4 (columns in
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'"
2051 message is held in this option. Unless this variable contains an
2052 absolute pathname, it is assumed to be in the `mh-progs'
2067 mairix, namazu, pick and grep in that order. If, for example, you
2072 MH-E can be found in the documentation of `mh-search'."
2093 non-textual attachments that were in the forwarded message. Be
2094 aware that if you have \"forw: -mime\" in your MH profile, then
2133 are using. If you don't want to participate in our marketing, you
2158 \"all\". You can always edit the recipients in the draft."
2187 If a message is in any sequence (except \"Previous-Sequence:\"
2188 and \"cur\") when it is refiled, then it will still be in those
2189 sequences in the destination folder. If this behavior is not
2228 delete the show buffer more easily in an electric buffer list
2249 you'll see the MIME body parts rather than text or attachments.
2250 There isn't much point in turning off this option; however, you
2251 can inspect it if it appears that the body parts are not being
2266 the attachment in increasing degree of faithfulness to the
2282 inline attachments so that you can read them in MH-E. In this case, it
2284 and paste the code into a file; you can simply save the attachment.
2324 already present in the cache. This is the default.
2331 of messages, each specifying a unique URL to a very large file.
2333 The cache of images is found in the directory \".mhe-x-image-cache\"
2348 It is a long standing custom to inject body language using a
2363 A few typesetting features are indicated in ASCII text with
2367 underlined, *bold* will appear in bold, /italics/ will appear in
2368 italics, and so on. See the option `gnus-emphasis-alist' for the
2377 (defcustom-mh mh-highlight-citation-style 'gnus
2380 If the sender of the message has cited other messages in his
2385 method highlights all citations in red. To disable highlighting
2387 :type '(choice (const :tag "Multicolor" gnus)
2486 "X-Gnus-Mail-Source:" ; gnus
2588 here that you would like to be displayed in
2589 `mh-invisible-header-fields-default' and add entries to hide in
2608 Header fields that you would like to hide that aren't listed in
2629 The header fields listed in this option are hidden, although you
2645 "*Regexp matching lines in a message header that are not to be shown.
2648 hidden that you wish to display, and add extra entries to hide in
2660 (loop for x in fields
2691 \\[mh-ps-print-msg-file]."
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
2743 \"mhl\" is always used for printing and forwarding; in this case, the
2745 file."
2748 (file :tag "Specify an mhl Format File"))
2752 (defcustom-mh mh-mime-save-parts-default-directory t
2753 "Default directory to use for \\<mh-folder-mode-map>\\[mh-mime-save-parts].
2756 you are always prompted for the directory in which to save the
2769 "*Non-nil means messages should be printed in the background\\<mh-folder-mode-map>.
2771 Normally messages are printed in the foreground. If this is slow on
2772 your system, you may elect to turn off this option to print in the
2779 \\[mh-ps-print-msg-file]."
2785 "*Maximum size of message (in bytes) to display automatically.
2795 "*Non-nil means display face images in MH-show buffers.
2798 \"X-Image-URL:\" header fields. If any of these fields occur in the
2799 header of your message, the sender's face will appear in the \"From:\"
2801 field found in the order \"Face:\", \"X-Face:\", and \"X-Image-URL:\"
2809 \"Face:\" field. The \"Face:\" field appeared in GNU Emacs 21 and
2811 `http://quimby.gnus.org/circus/face/'. Next is the traditional
2825 fields this is the most efficient in terms of network usage since the
2846 (defcustom-mh mh-summary-height nil
2847 "*Number of lines in MH-Folder buffer (including the mode line).
2862 "Time between speedbar updates in seconds.
2871 "*Non-nil means new folders start in threaded mode.
2884 ;; dynamically in mh-tool-bar.el.
2898 (mh-do-in-xemacs
2922 Bar\" and the default tool bar is in a different location, then
2941 Variables that are useful in this hook include
2944 folder, which is also available in `mh-current-folder'."
2960 Variables that are useful in this hook include `mh-delete-list'
2984 For example, if you want to check your spelling in your message
3037 Hook functions may access the actual name of the file or the
3039 `mh-signature-file-name'."
3055 WARNING: Use this hook with care. If there is a bug in your hook
3057 accident in the \"+inbox\" folder, you will not be happy."
3069 \"components\" file and need to tell MH-E where the cursor should
3098 This hook is not run in an MH-E context, so you might use it to
3118 used to affect the behavior of MH-E in general or when
3128 This hook is called early on in the process of the message
3327 supported, any additional attributes in the inherit parameter are
3339 (error "Could not find %s in mh-face-data" face)))))
3347 (loop for entry in (reverse spec) do
3366 (defface-mh mh-folder-body
3419 "Fontification hint face in messages sent directly to us.
3429 "Sender face in messages sent directly to us.
3456 "Editable header field value face in draft buffers."
3462 "Folder heading face in MH-Folder buffers created by searches."
3531 The background and foreground are used in the image."