Lines Matching +defs:default +defs:name
71 If `system-default', allows the mailer to insert its default From field
74 In old versions of Emacs, the `system-default' setting also caused
79 (const system-default))
105 :type '(choice (string :tag "From-name")
114 so you can remove or alter the BCC field to override the default."
155 This is used by the default mail-sending commands. See also
180 (defcustom mail-archive-file-name nil
187 (defcustom mail-default-reply-to nil
188 "Address to insert as default Reply-to field of outgoing messages.
196 "If non-nil, the name of a file to use instead of `/usr/lib/aliases'.
205 "If non-nil, the name of the user's personal mail alias file.
224 \(The file's name is normally `~/.mailrc', but `mail-personal-alias-file'
225 can specify a different file name.)
264 If this hook is entirely empty (nil), a default action is taken
279 The default value matches citations like `foo-bar>' plus whitespace."
404 (defcustom mail-default-directory "~/"
406 Value of `default-directory' for mail buffers.
419 (defcustom mail-default-headers nil
441 The default is `mime'.
467 ;; According to RFC822, "The field-name must be composed of printable
489 (list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face)
524 (or mail-default-reply-to
525 (setq mail-default-reply-to (getenv "REPLYTO")))
537 (set-buffer-multibyte default-enable-multibyte-characters)
577 (if mail-default-headers
578 (insert mail-default-headers))
579 (if mail-default-reply-to
580 (insert "Reply-to: " mail-default-reply-to "\n"))
583 (if mail-archive-file-name
584 (insert "FCC: " mail-archive-file-name "\n"))
792 (buffer-name rmail-summary-buffer)
824 (if (if buffer-file-name
900 (if (not buffer-file-name)
920 This has higher priority than `default-buffer-file-coding-system'
921 and `default-sendmail-coding-system',
926 (defvar default-sendmail-coding-system 'iso-latin-1
938 (fullname (user-full-name))
988 ((eq mail-from-style 'system-default)
1071 ;;; (user-login-name))))
1074 ;;; (insert "Sender: " (user-login-name) "\n")))
1101 (symbol-name charset)
1122 (let* ((default-directory "/")
1131 ;;; (and (equal (user-real-login-name) "root")
1132 ;;; (list "-f" (user-login-name)))
1151 (list "-N" (mapconcat 'symbol-name
1194 (insert "\nFrom " (user-login-name) " "
1318 ;; Insert a copy, with altered header field name.
1351 "Add a new FCC field, with file name completion."
1420 (insert-file-contents (expand-file-name mail-signature-file)))))
1454 Normally, indents each nonblank line ARG spaces (default 3).
1529 Normally, indents each nonblank line ARG spaces (default 3).
1622 If `mail-default-reply-to' is non-nil, it should be an address (a string);
1625 If `mail-archive-file-name' is non-nil, an FCC field with that file name
1629 initialized. It can add more default fields to the message.
1686 ;;; (setq default-directory (expand-file-name "~/"))
1687 ;;; (auto-save-mode auto-save-default)
1690 ;;; (if (and buffer-auto-save-file-name
1691 ;;; (file-exists-p buffer-auto-save-file-name))
1703 (let ((dir (expand-file-name
1704 (file-name-as-directory mail-default-directory))))
1706 (setq default-directory dir)))
1708 (if (or (and auto-save-default (not buffer-auto-save-file-name))
1709 (and (not auto-save-default) buffer-auto-save-file-name))
1710 (auto-save-mode auto-save-default))
1714 ;;; (set-visited-file-name nil)
1718 (if buffer-file-name
1722 (set-visited-file-name nil))
1725 (set-visited-file-name nil)
1735 (if (and buffer-auto-save-file-name
1736 (file-exists-p buffer-auto-save-file-name))
1743 (let ((file-name (make-auto-save-file-name))
1746 ;; Remove the random part from the auto-save-file-name, and
1748 ;; Note: this knows that make-auto-save-file-name appends
1749 ;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF
1750 ;; is the result of (make-temp-name "").
1752 (- (length file-name) (length (make-temp-name "")) 1))
1753 (setq wildcard (concat (substring file-name 0 non-random-len) "*"))
1805 ;; to the default value, so that either the default does
1809 default-buffer-file-coding-system))))))))
1823 (let ((dir (expand-file-name
1824 (file-name-as-directory mail-default-directory))))
1826 (setq default-directory dir)))
1829 (let ((file-name buffer-auto-save-file-name))
1830 (cond ((and file-name (file-exists-p file-name))
1836 (dired-noselect file-name
1846 file-name)))
1854 (insert-file-contents file-name nil)