Lines Matching +defs:function +defs:list
46 ;; M-x mh-rmail to read mail. Type C-h m there for a list of commands.
67 ;; <list>-request@lists.sourceforge.net, or by using the web interface at
113 ;; Function declarations (use font-lock-function-name-face).
124 (7 (cond ((match-beginning 2) font-lock-function-name-face)
153 The list `exec-path' is searched in addition to this list.
154 There's no need for users to modify this list. Instead add extra
160 Use the function `mh-variants' instead.")
246 (defvar mh-delete-list nil
274 (defvar mh-refile-list nil
275 "List of folder names in `mh-seq-list'.
279 (defvar mh-seen-list nil
282 (defvar mh-seq-list nil
311 This list will always include the current folder
416 (let* ((compiled-mhe (byte-code-function-p (symbol-function 'mh-version)))
444 (defun mh-list-to-string (l)
445 "Flatten the list L and make every element of the new list into a string."
446 (nreverse (mh-list-to-string-1 l)))
448 (defun mh-list-to-string-1 (l)
449 "Flatten the list L and make every element of the new list into a string."
450 (let (new-list)
454 (push (symbol-name element) new-list))
456 (push (int-to-string element) new-list))
459 (push element new-list))
461 (setq new-list (nconc (mh-list-to-string-1 element) new-list)))
464 new-list))
476 The current buffer contains a list of strings, one on each line.
477 The function will execute CMD with ARGS and pass the first
486 (let ((arg-list (reverse args))
491 arg-list)
494 (apply #'call-process cmd nil (list out nil) nil
495 (nreverse arg-list))))
518 (args (mh-list-to-string args)))
538 ;; XXX: We should purge the list that split-string returns of empty
545 nil t nil (mh-list-to-string args))))))
562 (mh-list-to-string args))))
592 Execute MH command COMMAND with ARGS. ARGS is a list of strings.
617 (mh-list-to-string args))
674 ;; Temporary function and data structure used customization.
697 (put 'defgroup-mh 'lisp-indent-function 'defun)
707 (put 'defcustom-mh 'lisp-indent-function 'defun)
717 (put 'defface-mh 'lisp-indent-function 'defun)
725 "*Additional list of directories to search for MH.
732 "Return a list of installed variants of MH on the system.
733 This function looks for MH in `mh-sys-path', `mh-path' and
734 `exec-path'. The format of the list of variants that is returned
738 (let ((list-unique))
739 ;; Make a unique list of directories, keeping the given order.
743 (add-to-list 'list-unique dir))
744 (loop for dir in (nreverse list-unique) do
748 (add-to-list 'mh-variants variant)))))
841 function `mh-variants'.
860 (loop for variant-list in (mh-variants)
861 when (eq variant (cadr (assoc 'variant (cdr variant-list))))
862 return (let* ((version (car variant-list))
863 (alist (cdr variant-list))
912 (list (completing-read
914 (mapcar (lambda (x) (list (car x))) (mh-variants))
916 (let ((valid-list (mapcar (lambda (x) (car x)) (mh-variants))))
929 ((member variant valid-list)
1015 (add-to-list 'customize-package-emacs-version-alist
1208 list a file names. If this option is set to a list of file names,
1290 \"All\" to search all of the top level folders. Otherwise, list
1305 \"All\" to search all of the top level folders. Otherwise, list
1357 (defcustom-mh mh-default-folder-for-message-function nil
1360 When this function is called, the current buffer contains the message
1361 being refiled and point is at the start of the message. This function
1365 :type 'function
1369 (defcustom-mh mh-default-folder-list nil
1373 list is used as the default for `mh-refile-msg' and similar
1374 functions. Each element in this list contains a \"Check Recipient\"
1381 :type '(repeat (list (regexp :tag "Address")
1420 (defcustom-mh mh-identity-list nil
1432 <login@@host.domain>'. People usually list the name of the company
1440 `mh-signature-file-name', a file, or a function. Specify a different
1455 :type '(repeat (list :tag ""
1478 (function)))
1489 (defcustom-mh mh-auto-fields-list nil
1499 configured in `mh-identity-list'. All of the information for that
1507 useful if their replies go both to the list and to you and you don't
1509 on the list, you must either remove the \"Mail-Followup-To:\" field, or
1523 You should avoid using the same header field in `mh-auto-fields-list'
1524 and `mh-identity-list' definitions that may apply to the same message
1527 (list :tag ""
1536 (function (lambda (arg) `(const ,arg)))
1537 (mapcar 'car mh-identity-list))))
1552 See `mh-auto-fields-list'."
1559 See `mh-identity-list'."
1563 (mapcar (function (lambda (arg) `(const ,arg)))
1564 (mapcar 'car mh-identity-list))))
1574 "Handler functions for fields in `mh-identity-list'.
1577 and attributions in `mh-identity-list' are added. To customize
1579 function associated with the field you want to change with the
1580 name of a function you have written. You can also click on an
1582 the function you have written to handle it.
1585 `mh-identity-list'. The special fields \":attribution-verb\",
1587 `mh-identity-list' choices \"Attribution Verb\", \"Signature\", and
1598 :type '(repeat (cons (string :tag "Field") function))
1623 (defcustom-mh mh-inc-spool-list nil
1626 You can use the `mh-inc-spool-list' variable to direct MH-E to
1631 Suppose you are subscribed to the \"mh-e-devel\" mailing list and
1657 :type '(repeat (list (file :tag "Spool File")
1672 (defvar mh-junk-function-alist
1685 The function is always called with SYMBOL bound to
1687 `mh-junk-program'. The function sets the variable
1692 (loop for element in mh-junk-function-alist
1807 (defcustom-mh mh-letter-complete-function 'ispell-complete-word
1811 \\<mh-letter-mode-map>\\[mh-letter-complete] runs this function,
1813 :type '(choice function (const nil))
1857 This option may also be a symbol, in which case that function is
1862 said separator). The function `mh-signature-separator-p', which
1867 `mh-identity-list'."
2026 obtain a list of these variables. You will also have to call
2101 (defcustom-mh mh-compose-letter-function nil
2104 However, it is the last function called before you edit your
2105 message. The consequence of this is that you can write a function
2106 to write and send the message for you. This function is passed
2109 :type '(choice (const nil) function)
2228 delete the show buffer more easily in an electric buffer list
2230 running \\[electric-buffer-list] to see what I mean."
2369 whole list.
2400 "Delivered-To:" ; Egroups/yahoogroups mailing list manager
2413 "List-" ; Mailman mailing list manager
2414 "List-" ; Unknown mailing list managers
2415 "List-Subscribe:" ; Unknown mailing list managers
2416 "List-Unsubscribe:" ; Unknown mailing list managers
2418 "Mailing-List:" ; Egroups/yahoogroups mailing list manager
2461 "X-Apparently-To:" ; Egroups/yahoogroups mailing list manager
2465 "X-Beenthere:" ; Mailman mailing list manager
2501 "X-List-Host:" ; Unknown mailing list managers
2502 "X-List-Subscribe:" ; Unknown mailing list managers
2503 "X-List-Unsubscribe:" ; Unknown mailing list managers
2505 "X-Listserver:" ; Unknown mailing list managers
2506 "X-Loop:" ; Unknown mailing list managers
2516 "X-Mailing-List:" ; Unknown mailing list managers
2517 "X-Mailman-Approved-At:" ; Mailman mailing list manager
2518 "X-Mailman-Version:" ; Mailman mailing list manager
2519 "X-Majordomo:" ; Majordomo mailing list manager
2521 "X-MessageWall-Score:" ; Unknown mailing list manager, AUC TeX
2534 "X-Original-Date:" ; SourceForge mailing list manager
2580 "X-eGroups-" ; Egroups/yahoogroups mailing list manager
2601 Because the function `mh-invisible-headers' uses both
2886 (defcustom-mh mh-tool-bar-search-function 'mh-search
2890 \"Other Function\" from the \"Value Menu\" and enter a function
2893 (function :tag "Other Function"))
2943 deletes and refiles. This list will always include the current
2960 Variables that are useful in this hook include `mh-delete-list'
2961 and `mh-refile-list' which can be used to see which changes will
2985 before sending, add the `ispell-message' function."
3038 function used to insert the signature with
3139 The variable `mh-seen-list' can be used by this hook to obtain
3140 the list of messages which were removed from the unseen
3153 (add-to-list 'facemenu-unlisted-faces "^mh-"))
3159 ;; accessing face data with function mh-face-data.
3160 ;; 3. Add inherit argument to function mh-face-data if applicable.
3305 Used by function `mh-face-data' which returns spec that is
3331 function finds display entries with \"min-colors\" requirements