Lines Matching +defs:face +defs:or +defs:list
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; the Free Software Foundation; either version 2, or (at your option)
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
37 (defvar gnus-list-identifiers)) ; gnus-sum is required where necessary
189 `(signature . disabled)' to this list.
205 "*Headers to be generated or prompted for when sending a message.
226 "*Headers to be generated or prompted for when posting an article.
230 header, remove it from this list."
239 "*Headers to be generated or prompted for when mailing a message.
262 (or (stringp value)
263 (widget-editable-list-match widget value)))
283 (or (stringp value)
284 (widget-editable-list-match widget value)))
379 "Old target for cross-posts or follow-ups.")
404 "Function to use to insert note about Crosspost or Followup-To.
445 `unique' or t
476 (or (and (boundp 'gnus-local-organization)
502 * `message-forward-subject-author-subject' Source of article (author or
505 or newsgroup), in brackets followed by the subject
528 it is a bad idea is when forwarding a signed or encrypted
556 (or (stringp value)
557 (widget-editable-list-match widget value)))
567 (or (stringp value)
568 (widget-editable-list-match widget value)))
580 ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
640 "If non-nil, function that should return a list of headers.
648 "If non-nil, function that should return a list of headers.
656 "If non-nil, function that should return a list of headers.
689 "*Specifies functions for determining list subscription.
690 If nil, do not attempt to determine list subscription with functions.
691 If non-nil, this variable contains a list of functions which return
702 If nil, do not look at any files to determine list subscriptions. If
703 non-nil, each line of this file should be a mailing list address."
710 "*Specifies a list of addresses the user is subscribed to.
711 If nil, do not use any predefined list subscriptions. This list of
720 "*Specifies a list of addresses the user is subscribed to.
721 If nil, do not use any predefined list subscriptions. This list of
768 This should be a list of strings, one string for each argument. It
772 go to the right place or to deal with listserv's usage of that address, you
810 If t, generate all required headers. This can also be a list of headers to
891 "*Prefix inserted on cited or empty lines of yanked messages.
922 This can also be a list of functions. Each function can find the
990 "A list of actions to be performed upon successful sending of a message.")
992 "A list of actions to be performed upon exiting after sending a message.")
994 "A list of actions to be performed before killing a message buffer.")
996 "A list of actions to be performed after postponing a message.")
1006 It is inserted before you edit the message, so you can edit or delete
1044 ;; space, or colon.
1113 "*A list of GNKSA feet you are allowed to shoot.
1121 `cancel-messages' Allow you to cancel or supersede messages from
1125 (or (not (listp message-shoot-gnksa-feet))
1130 This can also be a list of regexps to match headers. Or a list
1160 (put 'message-header-to-face 'face-alias 'message-header-to)
1174 (put 'message-header-cc-face 'face-alias 'message-header-cc)
1188 (put 'message-header-subject-face 'face-alias 'message-header-subject)
1202 (put 'message-header-newsgroups-face 'face-alias 'message-header-newsgroups)
1216 (put 'message-header-other-face 'face-alias 'message-header-other)
1230 (put 'message-header-name-face 'face-alias 'message-header-name)
1244 (put 'message-header-xheader-face 'face-alias 'message-header-xheader)
1258 (put 'message-separator-face 'face-alias 'message-separator)
1272 (put 'message-cited-text-face 'face-alias 'message-cited-text)
1286 (put 'message-mml-face 'face-alias 'message-mml)
1352 (defvar message-face-alist
1359 The cdr of each entry is a function for applying the face to a region.")
1412 The first address in the To, Cc or From headers of the original
1424 "A list of hierarchical mail address definitions.
1429 subaddresses. So if the first address appears in the recipient list
1499 (defvar message-buffer-list nil)
1535 ;; The mailbox can be removed or be replaced by white space, e.g.
1551 ;; Perhaps a time zone, specified by an abbreviation, or by a
1655 (defmacro message-y-or-n-p (question show &rest text)
1657 `(message-talkative-question 'y-or-n-p ,question ,show ,@text))
1662 (progn (forward-line ,(or n 1)) (point))))
1669 "Remove double quotes (\") from strings in list ELEMS."
1678 "Split HEADER into a list of header elements.
1683 (let ((regexp (format "[%s]+" (or separator ",")))
1696 (or (eobp)
1725 see `message-narrow-to-headers-or-head'."
1739 (message-narrow-to-headers-or-head)
1790 (defun message-strip-list-identifiers (subject)
1791 "Remove list identifiers in `gnus-list-identifiers' from string SUBJECT."
1792 (require 'gnus-sum) ; for gnus-list-identifiers
1793 (let ((regexp (if (stringp gnus-list-identifiers)
1794 gnus-list-identifiers
1795 (mapconcat 'identity gnus-list-identifiers " *\\|"))))
1799 (or (match-string 3 subject)
1812 "Replacement character used instead of unprintable or not decodable chars."
1839 cs-coding q-or-b word-beg word-end)
1840 (if (or (not have-marker) ;; No encoded word found...
1841 ;; ... or double encoding was correct:
1846 (y-or-n-p
1858 q-or-b (match-string 2)
1871 contains an encoded word. The charset `%s' is unknown or invalid.
1872 Hit RET to replace non-decodable characters with \"%s\" or enter replacement
1882 ;; QP or base64
1883 (if (string-match "\\`Q\\'" q-or-b)
1917 (if (or (not found) (eq query nil))
1920 (if (message-y-or-n-p
1941 (list
1943 (cond ((and (not (or (null new-subject) ; new subject not empty
2014 (list ; Completion based on Gnus
2030 ;; unless (followup is to poster or user explicitly asked not
2031 ;; to cross-post, or target-group is already in Newsgroups)
2033 (cond ((and (or
2055 "Insert a in message body note about a set Followup or Crosspost.
2079 (if (or in-old
2089 (list ; Completion based on Gnus
2096 (cond ((not (or (null target-group) ; new subject not empty
2103 (or old-groups ""))))
2107 ((or (not in-old)
2115 ;; insert note whether we do cross-post or followup-to
2118 (if (or (and message-cross-post-default
2124 ;;; Reduce To: to Cc: or Bcc: header
2127 "Replace contents of To: header with contents of Cc: or Bcc: header."
2224 (defun message-narrow-to-headers-or-head ()
2233 (or (match-end 1) (match-beginning 2))
2240 (or message-this-is-news
2250 (or message-this-is-mail
2254 (or (message-fetch-field "to")
2260 (or message-subscribed-regexps
2268 (or (eobp) (forward-char 1))
2284 (or (get-text-property (point) 'message-rank)
2348 'message-insert-or-toggle-importance)
2369 (define-key message-mode-map "\C-c\C-l" 'message-to-list-only)
2371 (define-key message-mode-map "\C-c\C-u" 'message-insert-or-toggle-importance)
2493 ["Send to list only" message-to-list-only t]
2495 ["Unsubscribed list post" message-generate-unsubscribed-mail-followup-to
2508 (defvar facemenu-add-face-function)
2509 (defvar facemenu-remove-face-function))
2533 ;; property list (rather than a list of property symbols), to be
2536 mouse-face nil modification-hooks nil insert-in-front-hooks nil
2539 ;; category, face, display: probably doesn't do any harm.
2542 ;; We need to add XEmacs names to the list.
2543 "Property list of with properties forbidden in message buffers.
2550 and `read-only' when translating ascii or kana text to kanji text.
2554 (or (memq (get-text-property pos 'intangible)
2592 C-c C-f t replace To: header with contents of Cc: or Bcc:
2595 C-c C-l `message-to-list-only' (removes all but list address in to/cc)
2607 C-c C-u `message-insert-or-toggle-importance' (insert or cycle importance).
2621 (set (make-local-variable 'facemenu-add-face-function)
2622 (lambda (face end)
2623 (let ((face-fun (cdr (assq face message-face-alist))))
2624 (if face-fun
2625 (funcall face-fun (point) end)
2626 (error "Face %s not configured for %s mode" face mode-name)))
2628 (set (make-local-variable 'facemenu-remove-face-function) t)
2790 (interactive (list t))
2795 (or (search-forward (concat "\n" mail-header-separator "\n") nil t)
2821 "Insert a reasonable MFT header in a post to an unsubscribed list.
2822 When making original posts to a mailing list you are not subscribed to,
2824 the addresses of the list and your own address. This function inserts
2852 (dont (and mct (or (equal (downcase mct) "never")
2854 (to (or (message-fetch-reply-field "mail-reply-to")
2864 (when (and to (or force (not dont)))
2865 (message-carefully-insert-headers (list (cons 'To to))))))
2878 E.g., if this list contains a member list with elements `Cc' and `To',
2889 or in the synonym headers, defined by `message-header-synonyms'."
2937 (insert (or (message-fetch-reply-field "newsgroups") "")))
2983 (interactive (list (if current-prefix-arg 'full)))
3070 (interactive (list (if current-prefix-arg 'full)))
3093 (interactive (list 0))
3128 (or (bolp) (insert "\n")))))
3150 (defun message-insert-or-toggle-importance ()
3151 "Insert a \"Importance: high\" header, or cycle through the header values.
3182 (or (message-field-value "Reply-to")
3199 (list
3200 (min (point) (or (mark t) (point)))
3201 (max (point) (or (mark t) (point)))
3206 (unless (or (zerop n) ; no action needed for a rot of 0
3209 (when (or (not message-caesar-translation-table)
3236 (list (prefix-numeric-value current-prefix-arg))
3237 (list nil)))
3263 (let* ((mail-to (or
3329 (if (or (looking-at ">") (looking-at "^$"))
3373 "Return a list of active message buffers."
3376 (dolist (buffer (buffer-list t))
3391 (list message-indent-citation-function))))
3400 (or (message-fetch-field "subject") "none")
3401 (or (message-fetch-field "from") "nobody")
3440 (list message-indent-citation-function))))
3449 (or (message-fetch-field "subject") "none")
3450 (or (message-fetch-field "from") "nobody")
3556 (when (or (not (buffer-modified-p))
3557 (yes-or-no-p "Message modified; kill anyway? "))
3565 (when (and (or (and auto-save-file-name
3572 ;; `yes-or-no-p' may show up in a lowered frame. Make sure
3576 (yes-or-no-p (format "Remove the backup file%s? "
3589 (not (null (delq (selected-frame) (visible-frame-list)))))
3595 If `message-interactive' is non-nil, wait for success indication or
3600 It should typically alter the sending method in some way or other."
3617 (when (and (or (not (memq (car elem)
3620 (if (or (message-gnksa-enable-p 'multiple-copies)
3622 (y-or-n-p
3629 (unless (or sent
3633 (when (or fcc gcc)
3634 (or (eq message-allow-no-recipients 'always)
3637 (gnus-y-or-n-p
3643 (when (or dont-barf-on-no-method
3669 `(or (message-check-element ,type)
3677 "Return a list of all points where the text has PROP."
3710 'face 'highlight))
3711 (unless (yes-or-no-p
3720 (or (< (mm-char-int char) 128)
3728 'face 'highlight)
3748 (or (< (mm-char-int char) 128)
3769 (add-to-list (intern (format "message-%s-actions" (pop types)))
3857 (funcall (or message-send-mail-real-function
3897 (if (y-or-n-p "Fix continuation lines? ")
3900 (unless (y-or-n-p "Send anyway? ")
3925 (or (= (preceding-char) ?\n)
3935 (or (message-fetch-field "cc")
3941 (or
3952 (if (or (not message-send-mail-partially-limit)
3954 (not (message-y-or-n-p
3978 (funcall (or message-send-mail-real-function
4020 (list (point-min) (point-max)
4036 (list "-f" (message-sendmail-envelope-from)))
4046 (list resend-to-addresses)
4048 (unless (or (null cpr) (and (numberp cpr) (zerop cpr)))
4083 ;; reading a formatted (i. e., at least a To: or Resent-To header)
4164 (message-narrow-to-headers-or-head)
4167 (message-narrow-to-headers-or-head)
4176 (gnus-group-name-charset method (or followup-field "")))
4179 (list (cons "Newsgroups" group-field-charset)))
4181 (list (cons "Followup-To" followup-field-charset)))
4237 (or (= (preceding-char) ?\n)
4287 (or
4292 "The newsgroups field is empty or missing. Posting is denied.")))))
4297 (or
4302 "The subject field is empty or missing. Posting is denied.")))))
4306 (y-or-n-p
4324 (y-or-n-p (format "Your %s header is too long (%d). Really post? "
4333 (or (re-search-forward
4343 (y-or-n-p (format "Multiple %s headers. Really post? " found))
4348 (y-or-n-p
4366 (mapcar #'list
4377 (y-or-n-p "You appear to have a misconfigured system. Really post? ")
4382 (y-or-n-p "The article contains an Approved header. Really post? ")
4388 (or (not message-id)
4395 (y-or-n-p
4436 ((or (not (and (boundp 'gnus-active-hashtb)
4441 ((and (or (not gnus-read-active-file)
4444 (y-or-n-p
4455 (y-or-n-p
4467 (if (y-or-n-p "Fix continuation lines? ")
4470 (unless (y-or-n-p "Send anyway? ")
4480 (if (or
4495 (y-or-n-p
4512 (y-or-n-p
4523 ((or (not (string-match
4553 (y-or-n-p
4556 ((or (not (string-match
4565 (y-or-n-p
4580 (or (looking-at
4586 (or (bolp)
4588 (y-or-n-p
4600 (or (re-search-backward "[^ \n\t]" b t)
4602 (y-or-n-p "Empty article. Really post? ")
4610 (y-or-n-p
4616 (y-or-n-p
4622 (or
4626 (y-or-n-p
4634 (y-or-n-p
4648 (y-or-n-p "Your text should follow quoted text. Really post? ")
4654 (y-or-n-p "Your text should follow quoted text. Really post? ")
4676 list file
4690 (push file list)
4703 (while list
4704 (setq file (pop list))
4767 (let* ((now (or now (current-time)))
4792 (if (or
4811 ;; or string boundary), or modify the "fsf" string.
4816 (% (1+ (or message-unique-id-char (logand (random t) (1- (lsh 1 20)))))
4822 (if (or (memq system-type '(ms-dos emx vax-vms))
4883 (if (or references message-id)
4884 (concat (or references "") (and references " ")
4885 (or message-id ""))
4919 (if (or (not date) (string= date ""))
4954 (or (and (boundp 'user-full-name)
4962 ((or (null style)
4965 ((or (eq style 'angles)
4967 ;; Use angles if no quoting is needed, or if parens would
4969 (or (not (string-match "[^- !#-'*+/-9=?A-Z^-~]" fullname))
4987 (t ; 'parens or default
5016 (or (message-user-mail-address)
5082 (or mail-host-address
5085 (defun message-to-list-only ()
5086 "Send a message to the list only.
5087 Remove all addresses but the list address from To and Cc headers."
5122 (and re (list (concat re "\\)\\'"))))))))
5131 (list
5136 (when list
5138 list
5148 (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) ""))
5154 (or (not (eq message-use-idna 'ask))
5155 (y-or-n-p (format "Replace %s with %s in %s:? "
5215 ;; articles already. If they are not, or are empty, they are
5230 (when (or (not (re-search-forward
5251 (or (and (functionp (cdr elem))
5257 ;; string to be inserted verbatim, or it is a
5260 (or (and (stringp (cdr elem))
5306 '(message-deletable t face italic) (current-buffer)))))))
5317 (or (null sender)
5329 (when (or (message-news-p)
5368 (if (or (eq (char-after) ?,)
5416 (defun message-shorten-1 (list cut surplus)
5418 (setcdr (nthcdr (- cut 2) list)
5419 (nthcdr (+ (- cut 2) surplus 1) list)))
5422 "Trim REFERENCES to be 21 Message-ID long or less, and fold them.
5432 ;; Cons a list of valid references.
5438 ;; If the list has more than MAXCOUNT elements, trim it by
5502 "Move point to beginning of header value or to beginning of line.
5506 outside the message header or if the option `message-beginning-of-line'
5510 line, move point to the beginning of the header value or the beginning of line,
5525 (if (and eoh (or (< eoh here) (= bol here)))
5538 (or (car (mail-extract-address-components to))
5552 (or (car (mail-extract-address-components to))
5570 (or (cdar
5579 (cons (string-to-number (or (match-string 1 b) "1"))
5581 (buffer-list)))
5596 (funcall (or switch-function 'pop-to-buffer) buffer)
5600 (y-or-n-p
5604 (funcall (or switch-function 'pop-to-buffer) name)
5612 ;; list of buffers.
5613 (setq message-buffer-list (delq (current-buffer) message-buffer-list))
5615 message-buffer-list
5616 (>= (length message-buffer-list) message-max-buffers))
5618 (let ((buffer (pop message-buffer-list)))
5631 (if (not (or (null name)
5642 (or (car (mail-extract-address-components to))
5649 ;; Push the current buffer onto the list.
5651 (setq message-buffer-list
5652 (nconc message-buffer-list (list (current-buffer))))))
5670 (setq yank-action (list 'insert-buffer replybuffer)))
5690 "Return a list that includes all headers from HEADERS.
5691 If INCLUDED-HEADERS is a list, just include those headers. If it is
5709 (or (eq included-headers t)
5717 (add-to-list 'message-send-actions
5727 (push (list (caar h)) alist))
5734 (or (bolp) (insert ?\n)))
5745 (or (bolp) (insert ?\n)))
5756 (or (bolp) (insert ?\n)))
5770 (setq buffer-undo-list nil)
5806 (list message-draft-article) "drafts" nil t)))
5846 (when (or (not continue)
5858 `((To . ,(or to "")) (Subject . ,(or subject "")))
5870 (message-setup `((Newsgroups . ,(or newsgroups ""))
5871 (Subject . ,(or subject ""))))))
5877 (message-narrow-to-headers-or-head)
5880 (setq to (or (message-fetch-field "to")
5887 author (or (message-fetch-field "mail-reply-to")
5896 (cond ((or (equal (downcase mct) "never")
5900 ((or (equal (downcase mct) "always")
5905 ;; Build (textual) list of new recipient addresses.
5916 (or (not (eq message-use-mail-followup-to 'ask))
5917 (message-y-or-n-p "Obey Mail-Followup-To? " t "\
5927 Most commonly, Mail-Followup-To is used by a mailing list poster to
5928 express that responses should be sent to just the list, and not the
5932 also be used to direct the following discussion to one list only,
5963 ;; Convert string to a list of (("foo@bar" . "Name <Foo@BAR>") ...).
5992 ;; or not to reply to all recipients in a wide reply.
5993 (setq follow-to (list (cons 'To (cdr (pop recipients)))))
5995 (or (not message-wide-reply-confirm-recipients)
5996 (y-or-n-p "Reply to all recipients? ")))
6005 '(message-strip-list-identifiers
6012 Useful functions to put in this list include:
6013 `message-strip-list-identifiers', `message-strip-subject-re',
6025 (when (and (memq 'message-strip-list-identifiers functions)
6026 gnus-list-identifiers)
6027 (setq subject (message-strip-list-identifiers subject)))
6041 (require 'gnus-sum) ; for gnus-list-identifiers
6064 from (or (message-fetch-field "from") "nobody")
6065 subject (or (message-fetch-field "subject") "none"))
6067 ;; Strip list identifiers, "Re: ", and "was:"
6102 (require 'gnus-sum) ; for gnus-list-identifiers
6120 subject (or (message-fetch-field "subject") "none")
6138 ;; Strip list identifiers, "Re: ", and "was:"
6151 (list (cons 'Newsgroups to-newsgroups)))
6154 (list
6157 (if (or (eq message-use-followup-to 'use)
6158 (message-y-or-n-p "Obey Followup-To: poster? " t "\
6170 (cons 'To (or mrt reply-to from "")))
6173 (if (or (equal followup-to newsgroups)
6175 (message-y-or-n-p
6200 ,@(and distribution (list (cons 'Distribution distribution)))
6202 (not (or (equal (downcase mct) "never")
6204 (list (cons 'Cc (if (or (equal (downcase mct) "always")
6206 (or mrt reply-to from "")
6235 (or
6273 (when (yes-or-no-p "Do you really want to cancel this article? ")
6338 (yes-or-no-p (format "Recover auto save file %s? " file-name)))
6386 news, Source is the list of newsgroups is was posted to."
6392 (or (and from (car (gnus-extract-address-components from)))
6404 the list of newsgroups is was posted to."
6409 (or (message-fetch-field "from")
6440 ;; Make sure funcs is a list.
6443 (setq funcs (list funcs)))
6497 (or (search-forward "\n\n" nil t) (point)))
6544 (or (search-forward "\n\n" nil t) (point)))
6566 (or (search-forward "\n\n" nil t) (point)))
6601 ;; 20. FIXIT, or we drop support for rmail in Emacs 20.
6621 (list (message-read-from-minibuffer "Resend message to: ")))
6694 (if (or (re-search-forward message-unsent-separator nil t)
6731 (message-setup `((To . ,(or to "")) (Subject . ,(or subject "")))
6746 (message-setup `((To . ,(or to "")) (Subject . ,(or subject "")))
6760 (message-setup `((Newsgroups . ,(or newsgroups ""))
6761 (Subject . ,(or subject ""))))))
6774 (message-setup `((Newsgroups . ,(or newsgroups ""))
6775 (Subject . ,(or subject ""))))))
6793 (or (looking-at "[_\^@- ]")
6846 It can be either a list or a symbol refering to a list. See
6847 `gmm-tool-bar-from-list' for the format of the list. The
6852 :type '(repeat gmm-tool-bar-list-item)
6855 (repeat :tag "User defined list" gmm-tool-bar-item)
6864 :visible (or (not (boundp 'flyspell-mode))
6884 See `gmm-tool-bar-from-list' for details on the format of the list."
6904 See `gmm-tool-bar-from-list' for details on the format of the list."
6911 (defcustom message-tool-bar-zap-list
6917 See `gmm-tool-bar-from-list' for the format of the list."
6918 :type 'gmm-tool-bar-zap-list
6927 "Make a message mode tool bar from `message-tool-bar-list'.
6932 (or (not message-tool-bar-map) force))
6941 (gmm-tool-bar-from-list message-tool-bar
6942 message-tool-bar-zap-list
6955 (list (cons message-newgroups-header-regexp 'message-expand-group)
6968 If nil, the function bound in `text-mode-map' or `global-map' is executed."
6985 (funcall (or (cdar alist) message-tab-body-function
6994 (eval '(display-completion-list nil "")))
6995 (defalias 'message-display-completion-list 'display-completion-list))
6997 (defun message-display-completion-list (completions &optional ignore)
6998 "Display the list of completions, COMPLETIONS, using `standard-output'."
6999 (display-completion-list completions)))))
7039 (message-display-completion-list (sort completions 'string<)
7057 (setq text (message-flatten-list text)))
7068 (defun message-flatten-list (list)
7069 "Return a new, flat list that contains all elements of LIST.
7071 \(message-flatten-list '(1 (2 3 (4 5 (6))) 7))
7073 (cond ((consp list)
7074 (apply 'append (mapcar 'message-flatten-list list)))
7075 (list
7076 (list list))))
7100 (or (null varstr)
7115 (let ((mail-parse-charset (or mail-parse-charset
7133 (message-narrow-to-headers-or-head)
7140 (or mml-boundary
7143 (message-narrow-to-headers-or-head)
7186 (unless (or (not email) (equal email user-mail-address))
7206 (message-narrow-to-headers-or-head)
7216 (or to "")
7218 (or cc "")
7219 (if (and (or to cc) bcc) ", ")
7220 (or bcc "")))))))
7225 (list message-hidden-headers)
7250 (setq result (or result (looking-at regexp))))