Lines Matching +defs:new +defs:args
146 "/usr/new/mh/" ; Ultrix < 4.2
445 "Flatten the list L and make every element of the new list into a string."
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))
471 (defvar mh-index-max-cmdline-args 500
472 "Maximum number of command line args.")
474 (defun mh-xargs (cmd &rest args)
478 `mh-index-max-cmdline-args' strings to it. This is repeated till
486 (let ((arg-list (reverse args))
488 (while (and (not (eobp)) (< count mh-index-max-cmdline-args))
509 (defun mh-exec-cmd (command &rest args)
518 (args (mh-list-to-string args)))
519 (apply 'call-process (expand-file-name command mh-progs) nil t nil args)
524 (loop for arg in args do (insert " " arg))
530 (defun mh-exec-cmd-error (env command &rest args)
545 nil t nil (mh-list-to-string args))))))
547 (defun mh-exec-cmd-daemon (command filter &rest args)
562 (mh-list-to-string args))))
566 (defun mh-exec-cmd-env-daemon (env command filter &rest args)
580 (apply #'mh-exec-cmd-daemon command filter args)))
590 (defun mh-exec-cmd-quiet (raise-error command &rest args)
603 args)))
609 (defun mh-exec-cmd-output (command display &rest args)
617 (mh-list-to-string args))
622 ;; highlight a region containing the new messages, which is undesirable.
644 (defun mh-exec-lib-cmd-output (command &rest args)
648 (apply 'mh-exec-cmd-output (expand-file-name command mh-lib-progs) nil args))
676 (defmacro mh-strip-package-version (args)
681 ,args
683 (loop for keyword in ,args
689 (defmacro defgroup-mh (symbol members doc &rest args)
696 `(defgroup ,symbol ,members ,doc ,@(mh-strip-package-version args)))
699 (defmacro defcustom-mh (symbol value doc &rest args)
706 `(defcustom ,symbol ,value ,doc ,@(mh-strip-package-version args)))
709 (defmacro defface-mh (face spec doc &rest args)
716 `(defface ,face ,spec ,doc ,@(mh-strip-package-version args)))
1204 "*Filename used to store a new MH-E alias.
1218 "Specifies where new aliases are entered in alias files.
1286 (defcustom-mh mh-new-messages-folders t
1343 (defcustom-mh mh-sortm-args nil
1605 "*Program to incorporate new mail into a folder.
1607 This program generates a one-line summary for each of the new
1686 `mh-junk-program' and VALUE bound to the new value of
2024 how to parse the new format. As you will see, quite a lot of variables
2102 "Invoked when starting a new draft.
2114 "*Non-nil means prompt for header fields when composing a new draft."
2575 "X-Virus-Scanned" ; amavisd-new
2871 "*Non-nil means new folders start in threaded mode.
3014 "Hook run by `mh-folder-mode' when visiting a new folder."
3064 "Hook run by `mh-letter-mode' on a new letter.
3089 \\[mh-search] is run on a new pattern."
3155 ;; To add a new face:
3344 new-spec)
3353 (setq new-spec (cons (cons (delq requirement (car entry))
3355 new-spec)))
3356 (setq new-spec (cons entry new-spec)))))
3357 new-spec))))